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

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