VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 怎样从文件列表框中取得文件的完整路径和名称
发表评论(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