'This program gets the absolute path of a file


Private Sub Form_Load()


Dim objfso As New FileSystemObject
Dim strPath As String
strPath = objfso.GetAbsolutePathName("D:\\\Test.txt")
MsgBox (strPath)

End Sub