vb6.0中如何设置:如下的路径选择?怎么让一个按钮被点击时直接打开路径中的.exe文件?谢谢了

Posted 2023-04-03

参考技术A 我觉得使用VB'自带的打开文件对话框更方便一些，具体操作是：
工具栏-部件-选择Microsoft Common Dialog Control 6.0
form中加入部件
Private Sub Command1_Click()
CommonDialog1.Action = 1
End Sub
当然也可以自己编写相关的程序，但比较麻烦。 参考技术B '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

shell "执行路径",vbhide
不显示执行窗口一定是你需要的吧。
如果需要执行文件自动打开一个文件，当然这个执行文件可以打开这类文件，比如一个播放器可以播放视频的，那么代码如下：
Shell " 执行文件路径 " & " " & "执行文件打开的文件路径", vbNormalFocus

VB选择文件路径代码

我的代码是这样的：

Private Sub Command2_Click()
Dim sh
Dim oFolder
Set sh = CreateObject("shell.application")
Set oFolder = sh.BrowseForFolder(Me.hwnd, "请选择文件夹", BIF_EDITBOX Or BIF_RETURNONLYFSDIRS Or BIF_NONEWFOLDERBUTTON)
If Not oFolder Is Nothing Then
Debug.Print oFolder.Self.Path

Text1.Text = oFolder.Self.Path

End If
End Sub

用到以上代码Text1文本框的路径最后面少了一"\"

好心人帮忙解答下？是不是这行错了： Text1.Text = oFolder.Self.Path
是选择文件夹路径代码

点击“打开”按钮后，调用本函数，在出现的选择文件对话框中选择好文件，点击确定后会返回文件路径。
01 Function FPath$(nhwnd&, Title$)
02 Dim bi As BROWSEINFO
03 Dim idl As ITEMIDLIST
04 Dim rtn&, pidl&, path$, pos%
05 bi.hOwner = nhwnd&
06 bi.pidlRoot = idl.mkid.cb
07 bi.lpszTitle = Title$
08 bi.ulFlags = &H1
09 pidl& = SHBrowseForFolder(bi)
10 path$ = Space$(512)
11 rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
12 pos% = InStr(path$, Chr$(0))
13 FPath$ = Left(path$, pos - 1)
14 End Function 参考技术A 这个很正常。
加“\”的话你就自己加吧，系统不会给你加的。 参考技术B 加上这一句吧！！就可以了
Text1.Text = oFolder.Self.Path
if mid(text1,len(text1),1) <> "\" then text1 = text1 & "\"本回答被提问者采纳