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第二版

原文转自：http://www.ltesting.net