VBA/Excel/Access/Word/File Path/CurDir

CurDir() Returns a string representing the current drive path.

 
Sub strDemo20()
   Debug.Print CurDir()
End Sub

To return the current path for a specified drive

 
Sub curDirDemo1()
    CurDir ("C:\")
End Sub

To return the current path, use CurDir without an argument:

 
Sub curDirDemo()
    MsgBox CurDir
End Sub