Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
File1.FileName = File1.Path
End Sub
Private Sub form_load()
WindowState = 2
End Sub
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
File1.FileName = File1.Path
End Sub
Private Sub form_load()
WindowState = 2
End Sub
No comments:
Post a Comment