VB选择文件路径代码

发布网友发布时间：2022-05-11 20:01

共3个回答

热心网友时间：2023-10-18 13:43

点击“打开”按钮后，调用本函数，在出现的选择文件对话框中选择好文件，点击确定后会返回文件路径。
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

热心网友时间：2023-10-18 13:43

这个很正常。
加“\”的话你就自己加吧，系统不会给你加的。

热心网友时间：2023-10-18 13:44

加上这一句吧！！就可以了
Text1.Text = oFolder.Self.Path
if mid(text1,len(text1),1) <> "\" then text1 = text1 & "\"