如何获得当前路径？？？菜鸟提问

Question

App.path 当前应用程序的路径CurDir
' 假设 C 驱动器的当前路径为“C:\WINDOWS\SYSTEM”。
' 假设 D 驱动器的当前路径为“D:\EXCEL”。
' 假设 C 为当前的驱动器。
Dim MyPath
MyPath = CurDir   ' 返回“C:\WINDOWS\SYSTEM”。
MyPath = CurDir("C")   ' 返回“C:\WINDOWS\SYSTEM”。
MyPath = CurDir("D")   ' 返回“D:\EXCEL”。

Answer 1

DWORD GetCurrentDirectory(
  DWORD nBufferLength,  // size of directory buffer
  LPTSTR lpBuffer       // directory buffer
);
vc中的函数