Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command4_Click() '打开 "C:\Windows" ShellExecute Me.hwnd, "open", "C:\Windows", "", App.Path, 1 End Sub
Private Sub Command4_Click() '打开 "C:\" ShellExecute Me.hwnd, "open", "", "", App.Path, 1 End Sub
每张15元 www.wlxf.com
ShellExecute Me.hwnd, "open", "C:\Windows", "", App.Path, 1
End Sub
Private Sub Command4_Click() '打开 "C:\"
ShellExecute Me.hwnd, "open", "", "", App.Path, 1
End Sub
功能很强大,有客户端与服务端的
不过....不能给你hehe
我有自己和别人和写的,可惜有版权,如果你想要某一部分还可以,VB做的