ChDir Statement
рд╣рд╛рд▓рдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд╡рд╛ рдбреНрд░рд╛рдЗрдн рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрджрдЫ ред
This statement currently does not work as documented. See this issue for more information.
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ ChDir рдкрд╛рда
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рддреНрдпрд╕рдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдорд╛рд░реНрдЧ рд╡рд╛ рдбреНрд░рд╛рдЗрдн рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред
рдпрджрд┐ рд╣рд╛рд▓рдХреЛ рдбреНрд░рд╛рдЗрднрд▓рд╛рдИ рдорд╛рддреНрд░ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрди рдЪрд╛рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдмрд┐рд░рд╛рдо рдЪрд┐рдиреНрд╣рджреНрд╡рд╛рд░рд╛ рджрд┐рдПрдХреЛ рдбреНрд░рд╛рдЗрдн рдЕрдХреНрд╖рд░ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред
рдЙрджрд╛рд╣рд░рдг:
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