获取位置
Dim path1 As String = Application.StartupPath
'C:\Users\TOGAI\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug
Dim path2 As String = System.IO.Directory.GetCurrentDirectory()
'C:\Users\TOGAI\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug
Dim path3 As String = System.IO.Path.GetDirectoryName(path1)
'C:\Users\TOGAI\AppData\Local\Temporary Projects\WindowsApplication1\bin
'如果path1是C:\Users\TOGAI\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug\
' ----> 那么path3输出的就是 C:\Users\TOGAI\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug\
根目录
Dim path4 As String = Directory.GetDirectoryRoot(path1)
'C:\