ChDir Statement

рд╣рд╛рд▓рдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рд╡рд╛ рдбреНрд░рд╛рдЗрдн рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрджрдЫ ред

рдЪреЗрддрд╛рд╡рдиреА рдкреНрд░рддрд┐рдорд╛

This statement currently does not work as documented. See this issue for more information.


рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ ChDir рдкрд╛рда

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рддреНрдпрд╕рдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА рдорд╛рд░реНрдЧ рд╡рд╛ рдбреНрд░рд╛рдЗрдн рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

рдпрджрд┐ рд╣рд╛рд▓рдХреЛ рдбреНрд░рд╛рдЗрднрд▓рд╛рдИ рдорд╛рддреНрд░ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрди рдЪрд╛рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдмрд┐рд░рд╛рдо рдЪрд┐рдиреНрд╣рджреНрд╡рд╛рд░рд╛ рджрд┐рдПрдХреЛ рдбреНрд░рд╛рдЗрдн рдЕрдХреНрд╖рд░ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред


рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

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