getcurrentdirectoryA()获取当前目录。通过GetCurrentDirectory函数可以获取当前目录,该函数声明为:Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″      参数2为接收当前目录的字符缓冲区,前面必须加ref表示地址引用;参数1用来指定字符缓冲区的长度。调用过程为:
  String curdir 
  curdir=Space(256) 
  //为字符缓冲区开辟内存空间 
  GetCurrentDirectoryA(256,curdir)
  MessageBox(″Current Directory″,curdir)