如何让VB6程序获取Windows命令行当前目录以访问文件？

问题根源 #

VB6的CurDir()函数返回的是进程默认工作目录，但在IDE调试、非命令行启动场景下，这个目录可能和你执行命令时的命令行当前目录不一致。即使直接从命令行运行EXE，也可能因系统环境或程序设置导致CurDir()未指向预期目录，从而触发“文件未找到”错误。

解决方案：用Windows API获取命令行当前目录 #

最可靠的方式是调用Windows原生API获取进程的当前工作目录（即你执行命令时的命令行目录）：

1. 声明API函数 #

在VB6模块或窗体代码顶部添加以下声明：

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

2. 编写获取目录的函数 #

添加一个函数封装API调用，确保能正确获取目录：

Function GetCommandLineDir() As String
    Dim buffer As String
    Dim dirLength As Long
    
    ' 初始化缓冲区，足够容纳最长路径
    buffer = Space$(260)
    dirLength = GetCurrentDirectory(Len(buffer), buffer)
    
    If dirLength > 0 Then
        ' 截取有效路径内容
        GetCommandLineDir = Left$(buffer, dirLength)
    Else
        ' 降级使用CurDir()作为备选
        GetCommandLineDir = CurDir()
    End If
End Function

3. 使用目录访问文件 #

在你的文件操作代码中，拼接获取到的目录和目标文件名：

Sub ProcessTargetFile()
    Dim targetPath As String
    Dim targetFileName As String
    
    targetFileName = "your-target-file.txt" ' 替换为你的目标文件名
    ' 处理路径末尾的反斜杠，避免拼接错误
    targetPath = GetCommandLineDir() & IIf(Right$(GetCommandLineDir(), 1) = "\", "", "\") & targetFileName
    
    If Dir(targetPath) <> "" Then
        ' 这里写你的文件操作逻辑，比如打开、修改文件
        MsgBox "找到文件：" & targetPath
    Else
        MsgBox "文件未找到：" & targetPath
    End If
End Sub

关键注意事项 #

• 必须编译成EXE测试：IDE中运行时，VB6的工作目录通常是项目文件所在目录或VB6安装目录，和命令行目录不一致，编译后才能验证效果。
• 避免依赖CurDir()：CurDir()可能被ChDir函数或系统操作修改，无法稳定指向命令行启动目录。
• 路径拼接要严谨：始终检查路径末尾是否有反斜杠，防止出现C:\test\\file.txt这类无效路径。

内容的提问来源于stack exchange，提问作者Ira G