文件查找

sxy2011   发布于 2021年07月12日   阅读次数: 2436   

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
 
Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
 
Private Sub File1_Click()
Shell (File1.Path & "\" & File1.FileName)
End Sub

最新发布代码

TA发布的代码