File Path VisualBasic Script

Sub curDirDemo()
    MsgBox CurDir
End Sub