谁帮我编一段VB小程序，只要是学过VB的就会

来源：百度知道 编辑：UC知道 时间：2024/05/07 11:26:09
本人希望在一个窗体上点击一个命令按钮，便打开这个窗体所在的文件夹

例如：我已经生成的VB工程“张.exe”
保存在“C:/a/张.exe”
我希望运行"张.exe"后点击里面的一个按钮，就打开“C:/a”这个文件夹

不难吧？

做好后请发至本人邮箱:zhangdongshan0612@163.com
请注明您的百度名称，谢谢
对
我要随文件的位置变化而变化的哦
已发的朋友
我要去学校了
下午看，可以的话就接你了

楼上的只能打开C:/a，不能随文件移动而移动
Private Sub Command1_Click()
Shell "explorer.exe " & App.Path, 1
End Sub

已发送

第一个解决方案是调用VB内部命令SHELL进行打开!
Option Explicit
Private Sub Command1_Click()
Shell "explorer.exe C:/a", vbNormalFocus
End Sub

第二个解决方案是调用API函数
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

Private Sub Command4_Click() '打开 "C:\Windows"
ShellExecute Me.hwnd, "open", "C:\a", "", App.Path, 1
End Sub

ShellExecute 0,"Open",app.path & "","","",vbNormalFocu