ChDir Statement
ΠΠ·ΠΌΠ΅Π½ΡΠ΅Ρ ΡΠ΅ΠΊΡΡΠΈΠΉ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΠΈΠ»ΠΈ Π΄ΠΈΡΠΊ.

This statement currently does not work as documented. See this issue for more information.
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
ChDir Π’Π΅ΠΊΡΡ As String
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ:
Π’Π΅ΠΊΡΡ. ΠΡΠ±ΠΎΠ΅ ΡΡΡΠΎΠΊΠΎΠ²ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΏΡΡΡ ΠΊ ΠΏΠ°ΠΏΠΊΠ΅ ΠΈΠ»ΠΈ Π΄ΠΈΡΠΊ.

ΠΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΡΠΈΠΉ Π΄ΠΈΡΠΊ, ΡΠΊΠ°ΠΆΠΈΡΠ΅ Π±ΡΠΊΠ²Ρ ΡΡΠΎΠ³ΠΎ Π΄ΠΈΡΠΊΠ° Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ΠΌ.
ΠΡΠΈΠΌΠ΅Ρ:
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