CurDir Function

рдЪрд▓ рд╕реНрдЯреНрд░рд┐рдЩ рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдбреНрд░рд╛рдЗрднрдХреЛ рд╣рд╛рд▓рдХреЛ рдорд╛рд░реНрдЧ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред

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

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


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


CurDir [(рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда)]

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рд╕реНрдЯреНрд░рд┐рдЩ

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

рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдЕрд╡рд╕реНрдерд┐рдд рдбреНрд░рд╛рдЗрднрд▓рд╛рдИ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ (рдЙрджрд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐ рдкрд╣рд┐рд▓реЛ рд╣рд╛рд░реНрдб рдбреНрд░рд╛рдЗрднрдХреЛ рдкрд╣рд┐рд▓реЛ рдмрд┐рднрд╛рдЬрдирдХрд╛ рд▓рд╛рдЧрд┐ "C") ред

рдпрджрд┐ рдбреНрд░рд╛рдЗрдн рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╡рд╛ рдбреНрд░рд╛рдЗрднрдХреЛ рд╢реВрдиреНрдп-рд▓рдореНрдмрд╛рдЗ рд╕реНрдЯреНрд░рд┐рдЩ ("") рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛, CurDir рд▓реЗ рд╣рд╛рд▓рдХреЛ рдбреНрд░рд╛рдЗрднрдХрд╛ рд▓рд╛рдЧрд┐ рдорд╛рд░реНрдЧ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпрджрд┐ рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛рдорд╛ рдбреНрд░рд╛рдЗрднрдХреЛ рд╡рд░реНрдгрди рдЧрд▓рдд рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗ рддреНрд░реБрдЯрд┐рд╣рд░реВ рдкреНрд░рддрд┐рд╡реЗрджрди рдЧрд░реНрджрдЫ, рдпрджрд┐ рдЕрдиреНрддрд┐рдо рдбреНрд░рд╛рдЗрдн рдХрдерди рд╕рдБрдЧ CONFIG.SYSрдорд╛ рдЕрдХреНрд╖рд░ рдкрд░рд┐рдЪрд┐рдд рднрдПрдкрдЫрд┐ рдбреНрд░рд╛рдЗрдн рдЕрдХреНрд╖рд░ рдЖрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдбреНрд░рд╛рдЗрдн рдЕрд╡рд╕реНрдерд┐рдд рд╣реБрдирд╕рдХреНрддреИрди ред

рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рд╕рдВрд╡реЗрджрдирд╢рд┐рд▓ рдЕрд╡рд╕реНрдерд╛рдХреЛ рд╣реЛрдЗрди ред

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

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

68 рдпрдиреНрддреНрд░ рдЙрдкрд▓рдмреНрдз рдЫреИрди

7 рд╕реНрдореГрддрд┐ рднрдиреНрджрд╛ рдмрд╛рд╣рд┐рд░

51 рдЖрдиреНрддрд░рд┐рдХ рддреНрд░реБрдЯрд┐

рдЙрджрд╛рд╣рд░рдг:


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