VB中得到当前目录API定义

在程序中，为了得到当前工作目录，使用了API函数GetCurrentDirectory,使用工具API Text Viewer中定义：

Public Declare Function GetCurrentDirectory Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

结果在程序出现“实时错误‘453’，找不到DLL入口点GetCurrentDirectory in kernel32 "，标准定认也会出错，当时也不相信，并且此函数刚在编的VC程序中调用。于是用VC所带具DEPENDS.EXE打开kernel32.dll文件，查找入口函数，发现有GetCurrentDirectoryA和GetCurrentDirectoryW两个函数，更改函数定义为：

Public Declare Function GetCurrentDirectoryA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

程序通过。

注：操作系统为98第二版