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

本人希望在一个窗体上点击一个命令按钮,便打开这个窗体所在的文件夹例如:我已经生成的VB工程“张.exe”保存在“C:/a/张.exe”我希望运行"张.exe"后点击里面的... 本人希望在一个窗体上点击一个命令按钮,便打开这个窗体所在的文件夹

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

不难吧?

做好后请发至本人邮箱:zhangdongshan0612@163.com
请注明您的百度名称,谢谢

我要随文件的位置变化而变化的哦
已发的朋友
我要去学校了
下午看,可以的话就接你了
展开
 我来答
三度大人
2007-06-06 · 超过16用户采纳过TA的回答
知道答主
回答量:97
采纳率:100%
帮助的人:0
展开全部
第一个解决方案是调用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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
test_abcd
2007-06-06 · TA获得超过3150个赞
知道大有可为答主
回答量:2162
采纳率:50%
帮助的人:2114万
展开全部
楼上的只能打开C:/a,不能随文件移动而移动
Private Sub Command1_Click()
Shell "explorer.exe " & App.Path, 1
End Sub

已发送
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
maxjiejie2006
2007-06-06 · TA获得超过275个赞
知道小有建树答主
回答量:572
采纳率:0%
帮助的人:0
展开全部
ShellExecute 0,"Open",app.path & "","","",vbNormalFocus
或者
shellexecute me.hwnd,"Open",app.path,vbnullstring,vbnullstring,SW_SHOWNORMAL
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
逢露02u
2007-06-06 · TA获得超过167个赞
知道小有建树答主
回答量:1157
采纳率:0%
帮助的人:545万
展开全部
早没有环境了。用记事本写很麻烦。不要意思,2分拿走了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式