140.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

怎样从文件列表框中取得文件的完整路径和名称

Private Sub File1_Click()
Dim sFile As String
' 取文件列表框的路径
sFile = File1.Path
' 如果路径不是根目录则加上一个斜杠"\"
If Right(sFile, 1) <> "\" Then sFile = sFile & "\"
' 合并路径和文件名
sFile = sFile & File1.Filename
Debug.Print sFile
End Sub