VB选择文件路径代码

Posted 2023-03-22

我的代码是这样的：

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 & "\"本回答被提问者采纳