7,763
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
liyan010 2004-08-14
- 打赏
- 举报
哇！楼上的方法。。。 -_-!
northwolves 2004-08-14
- 打赏
- 举报
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 Long
Sub opendir(ByVal dirpath As String)
ShellExecute hwnd, "open", dirpath, vbNullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
Call opendir("c:\windows\system\")
End Sub
Sub opendir(ByVal dirpath As String)
ShellExecute hwnd, "open", dirpath, vbNullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
Call opendir("c:\windows\system\")
End Sub
hglai 2004-08-14
- 打赏
- 举报
我有一个小程序要用到这个东西
syskey000003 2004-08-14
- 打赏
- 举报
你到底想做什么呢.
只打开一个文件夹有什么意义呢?
只打开一个文件夹有什么意义呢?
hglai 2004-08-14
- 打赏
- 举报
不是吧
邪门，那么简单？？？
我搞了一天了，还是这个网站好，
谢谢了大哥
邪门，那么简单？？？
我搞了一天了，还是这个网站好，
谢谢了大哥
rainstormmaster 2004-08-14
- 打赏
- 举报
Private Sub Command1_Click()
Shell "explorer c:", 1
End Sub
Shell "explorer c:", 1
End Sub
frankwong 2004-08-14
- 打赏
- 举报
楼主的意思是..............?
