我的代码是这样的:
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
是选择文件夹路径代码