ChDir 语句

修改当前目录或驱动器。

此语句当前尚不能按照文档所描述的方式工作。详情请见这个问题报告。

语法:


ChDir Text As String

参数:

「Text」: 用于指定目录路径或驱动器的任意字符串表达式。

如果只需要修改当前驱动器，请输入驱动器号，并在后面加上冒号。

错误代码:

5 无效的过程调用

76 未找到路径

示例:


Sub ExampleChDir
Dim sDir1 As String , sDir2 As String
    sDir1 = "c:\Test"
    sDir2 = "d:\Private"
    ChDir( sDir1 )
    MsgBox CurDir
    ChDir( sDir2 )
    MsgBox CurDir
End Sub