VB中，如何获取文件路径

Private Sub 搜索(ByRef lst As ListBox, ByVal sPath As String, Optional bShowFolders As Boolean = True)
On Error Resume Next
Dim lngReturn As Long
Dim lngFlags As Long
If bShowFolders = False Then
lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN
Else
lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN Or DDL_DIRECTORY
End If
lst.Clear
lngReturn = SendMessageA(lst.hWnd, LB_DIR, lngFlags, ByVal sPath)
End Sub
搜索 List1, Text3.Text + "\*.*"

environ("USERPROFILE") & "\a.txt "

getcurrentdir(),

environ("USERPROFILE") & "\My Documents\a.txt"