CurDir Function
āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āύā§āĻ āϏā§āĻā§āϰāĻŋāĻ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āϝāĻž āĻāϞā§āϞā§āĻāĻŋāϤ āĻĄā§āϰāĻžāĻāĻā§āϰ āĻŦāϰā§āϤāĻŽāĻžāύ āĻĒāĻžāĻĨ āύāĻŋāϰā§ā§ā§āĻļ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
CurDir [(Text As String)]
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
āϏā§āĻā§āϰāĻŋāĻ
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āĻĒāĻžāĻ ā§āϝ: āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĄā§āϰāĻžāĻāĻ āĻāϞā§āϞā§āĻāĻāĻžāϰ⧠āϝā§āĻā§āύ⧠āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰāĻļā§āύ (āϝā§āĻŽāύ, āĻĒā§āϰāĻĨāĻŽ āĻšāĻžāϰā§āĻĄāĻĄā§āϰāĻžāĻāĻā§āϰ āĻĒā§āϰāĻĨāĻŽ āĻ āĻāĻļ āύāĻŋāϰā§āĻĻā§āĻļā§āϰ āĻāύā§āϝ "C")āĨ¤
āϝāĻĻāĻŋ āĻā§āύ āĻĄā§āϰāĻžāĻāĻā§āϰ āĻāϞā§āϞā§āĻ āύāĻž āĻĨāĻžāĻā§ āĻ āĻĨāĻŦāĻž āĻĄā§āϰāĻžāĻāĻāĻāĻŋ āĻāĻāĻāĻŋ āĻļā§āύā§āϝ āĻĻā§āϰā§āĻā§āϝā§āϰ āϏā§āĻā§āϰāĻŋāĻ ("") āĻšā§, āϤāĻžāĻšāϞ⧠CurDir āĻŦāϰā§āϤāĻŽāĻžāύ āĻĄā§āϰāĻžāĻāĻā§āϰ āĻāύā§āϝ āĻĒāĻžāĻĨ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āϝāĻĻāĻŋ āĻĄā§āϰāĻžāĻāĻ āĻŦāϰā§āĻŖāύāĻžāϰ āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ āĻā§āϞ āĻšā§, āĻĄā§āϰāĻžāĻāĻāĻāĻŋ āĻāĻĒāϏā§āĻĨāĻŋāϤ āύāĻž āĻĨāĻžāĻā§ āĻ āĻĨāĻŦāĻž Lastdrive āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ CONFIG.SYS āĻ āύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻ āĻā§āώāϰā§āϰ āĻĒāϰā§āϰ āĻ āĻā§āώāϰ āĻĻā§āĻŦāĻžāϰāĻž āĻĄā§āϰāĻžāĻāĻāĻāĻŋ āύāĻŋāϰā§āĻĻā§āĻļāĻŋāϤ āĻšā§, āϤāĻžāĻšāϞ⧠LibreOffice āĻŦā§āϏāĻŋāĻ āĻāĻāĻāĻŋ āϤā§āϰā§āĻāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻāĻ āĻĢāĻžāĻāĻļāύāĻāĻŋ āĻ āĻā§āώāϰā§āϰ āĻāĻžāĻāĻĻ āύāĻŋāϰā§āĻāϰāĻļā§āϞ āύā§āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
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