Private Sub Command1_Click()
MsgBox ”你正開啟” & Text1.Text & ”檔案”
End Sub
___________________________________________

Private Sub Command2_Click()
End
End Sub

___________________________________________

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

___________________________________________

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

___________________________________________

Private Sub File1_Click()
Text1.Text = File1.List(File1.ListIndex)
End Sub