例： Private Sub Form Load() Dirl.Path "e:\wx" '设置选定的目录 End Sub Private Sub Dir1 Change() Print Dir1.Path 返回选定目录的路径 End Sub 7 7 Private Sub Form_Load() Dir1.Path = "e:\wx" '设置选定的目录 End Sub Private Sub Dir1_Change() Print Dir1.Path '返回选定目录的路径 End Sub 例：