用VB实现这样的功能: 当我打开一个应用程序的时候,会自动打开一个我指定的文件夹? 求高手指导

如题我想大家都没有理解我的意思:比如说有一个程序A.EXE一个文件B我要编写能实现这样功能的程序:当它检测到A.EXE启动的时候,就马上打开文件B。要求这VB程序能在后台... 如题
我想大家都没有理解我的意思:
比如说有一个程序 A.EXE 一个文件 B
我要编写能实现这样功能的程序:
当它检测到A.EXE启动的时候,就马上打开文件B。
要求这VB程序能在后台运行的。
展开
 我来答
xlzzc
2011-10-25 · TA获得超过7301个赞
知道大有可为答主
回答量:4205
采纳率:50%
帮助的人:1447万
展开全部
您是要打开文件夹,而不是打开对话框或者保存对话框。
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 Form_Load()
ShellExecute hWnd, "open", "explorer.exe", "E:\张志晨\童谣\", "", 1
End Sub
............................................
请参阅:
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 Command1_Click()
    ShellExecute hWnd, "open", "explorer.exe", "/e,/select,E:\焦点文件.MP3", "", 1
  End Sub

通过explorer.exe的开关实现.

  Explorer.exe的参数如下:
  命令格式Explorer [/n][/e][[,/root],[path]][[,/select],[path filename]]

参数说明
  /n表示以“我的电脑”方式打开一个新的窗口,通常打开的是Windows安装分区的根目录。
  /e表示以“资源管理器”方式打开一个新的窗口,通常打开的也是Windows安装分区的根目录。
  /root,[path]表示打开指定的文件夹,/root表示只显示指定文件夹下面的文件(夹),不显示其它磁盘分区和文件夹;[path]表示指定的路径。
  如果不加/root参数,而只用[path]参数,则可以显示其它磁盘分区和文件夹中的内容。另外,[path]还可以指定网络共享文件夹。
  /select,[path filename]表示打开指定的文件夹并且选中指定的文件,[path filename]表示指定的路径和文件名。
  如果不加/select参数,则系统会用相应的关联程序打开该文件。如果[path filename]不跟文件名就会打开该文件夹的上级目录并选中该文件夹。
  张志晨

参考资料: http://hi.baidu.com/chen_bawang/blog/item/a889728dea875610b21bba19.html

_ForNow_
2011-10-25 · 超过27用户采纳过TA的回答
知道答主
回答量:116
采纳率:0%
帮助的人:73.3万
展开全部
嗯 就是用CommonDialog1控件,这个控件可以用来打开文件和保存文件。
更多追问追答
追问
只是打开文件夹我知道用CommonDialog控件
但我要的是这样的:
if 进程A.EXE 存在 else
打开文件B
追答
打开文件
Private Sub OpenGG_Click()
On Error GoTo err
Dim GGLuJin As String
GuangGaoTxt.Text = ""
CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowOpen
GGLuJin = CommonDialog1.FileName
Open GGLuJin For Input As #1
Do While Not EOF(1)
Line Input #1, st '每次读取一个整行
GuangGaoTxt.Text = GuangGaoTxt.Text + st '+ vbCrLf换行
Loop
Close #1
err:
End Sub
保存文件
Private Sub SaveGG_Click()
On Error GoTo ErrHandler
Dim i As Integer
Dim pp As String
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
pp = Mid(GuangGaoTxt.Text, 1, Len(GuangGaoTxt.Text))
Print #1, pp
'MsgBox "文件保存成功!", g + 64, "提示"
Close
MsgBox "广告已保存到 " & CommonDialog1.FileName
ErrHandler:
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
leiyangbdwk
2011-10-25 · TA获得超过3295个赞
知道大有可为答主
回答量:4975
采纳率:12%
帮助的人:4393万
展开全部
Private Sub Form_Load()
CommonDialog1.InitDir = "C:\" '改成你想打开的路径
CommonDialog1.ShowOpen
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2011-10-27
展开全部
路过
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式