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