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

 

 

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 

 

上一个：VB网格中输入数据
下一个：旋转字体