CurDir() Returns a string representing the current drive path.
Sub strDemo20() Debug.Print CurDir() End Sub