CurDir Function
рдЪрд▓ рд╕реНрдЯреНрд░рд┐рдЩ рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдбреНрд░рд╛рдЗрднрдХреЛ рд╣рд╛рд▓рдХреЛ рдорд╛рд░реНрдЧ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
CurDir [(рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда)]
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд╕реНрдЯреНрд░рд┐рдЩ
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд╛рда:рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдЕрд╡рд╕реНрдерд┐рдд рдбреНрд░рд╛рдЗрднрд▓рд╛рдИ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ (рдЙрджрд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐ рдкрд╣рд┐рд▓реЛ рд╣рд╛рд░реНрдб рдбреНрд░рд╛рдЗрднрдХреЛ рдкрд╣рд┐рд▓реЛ рдмрд┐рднрд╛рдЬрдирдХрд╛ рд▓рд╛рдЧрд┐ "C") ред
рдпрджрд┐ рдбреНрд░рд╛рдЗрдн рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╡рд╛ рдбреНрд░рд╛рдЗрднрдХреЛ рд╢реВрдиреНрдп-рд▓рдореНрдмрд╛рдЗ рд╕реНрдЯреНрд░рд┐рдЩ ("") рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛, CurDir рд▓реЗ рд╣рд╛рд▓рдХреЛ рдбреНрд░рд╛рдЗрднрдХрд╛ рд▓рд╛рдЧрд┐ рдорд╛рд░реНрдЧ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпрджрд┐ рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛рдорд╛ рдбреНрд░рд╛рдЗрднрдХреЛ рд╡рд░реНрдгрди рдЧрд▓рдд рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗ рддреНрд░реБрдЯрд┐рд╣рд░реВ рдкреНрд░рддрд┐рд╡реЗрджрди рдЧрд░реНрджрдЫ, рдпрджрд┐ рдЕрдиреНрддрд┐рдо рдбреНрд░рд╛рдЗрдн рдХрдерди рд╕рдБрдЧ CONFIG.SYSрдорд╛ рдЕрдХреНрд╖рд░ рдкрд░рд┐рдЪрд┐рдд рднрдПрдкрдЫрд┐ рдбреНрд░рд╛рдЗрдн рдЕрдХреНрд╖рд░ рдЖрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдбреНрд░рд╛рдЗрдн рдЕрд╡рд╕реНрдерд┐рдд рд╣реБрдирд╕рдХреНрддреИрди ред
рдпреЛ рдкреНрд░рдХрд╛рд░реНрдп рд╕рдВрд╡реЗрджрдирд╢рд┐рд▓ рдЕрд╡рд╕реНрдерд╛рдХреЛ рд╣реЛрдЗрди ред
рдЙрджрд╛рд╣рд░рдг:
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