发表评论(0)作者：, 平台：, 阅读：10884, 日期：2000-03-12

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



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