vb6 取檔案所在路徑

參考來源
--
Private Sub Command1_Click()
Dim a As String
a = "c:\test.txt"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetParentFolderName(a)
 
End Sub