CurDir Function

āĻāĻ•āϟāĻŋ āϭ⧇āϰāĻŋā§Ÿā§‡āĻ¨ā§āϟ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āϝāĻž āωāĻ˛ā§āϞ⧇āĻ–āĻŋāϤ āĻĄā§āϰāĻžāχāϭ⧇āϰ āĻŦāĻ°ā§āϤāĻŽāĻžāύ āĻĒāĻžāĻĨ āύāĻŋāĻ°ā§ā§Ÿā§‡āĻļ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāϤāĻ°ā§āĻ•āϤāĻžāĻŽā§‚āϞāĻ• āφāχāĻ•āύ

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


āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


CurDir [(Text As String)]

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āĻĒāĻžāĻ ā§āϝ: āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĄā§āϰāĻžāχāĻ­ āωāĻ˛ā§āϞ⧇āĻ–āĻ•āĻžāϰ⧀ āϝ⧇āϕ⧋āύ⧋ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āĻāĻ•ā§āϏāĻĒā§āϰāĻļ⧇āύ (āϝ⧇āĻŽāύ, āĻĒā§āϰāĻĨāĻŽ āĻšāĻžāĻ°ā§āĻĄāĻĄā§āϰāĻžāχāϭ⧇āϰ āĻĒā§āϰāĻĨāĻŽ āĻ…āĻ‚āĻļ āύāĻŋāĻ°ā§āĻĻ⧇āĻļ⧇āϰ āϜāĻ¨ā§āϝ "C")āĨ¤

āϝāĻĻāĻŋ āϕ⧋āύ āĻĄā§āϰāĻžāχāϭ⧇āϰ āωāĻ˛ā§āϞ⧇āĻ– āύāĻž āĻĨāĻžāϕ⧇ āĻ…āĻĨāĻŦāĻž āĻĄā§āϰāĻžāχāĻ­āϟāĻŋ āĻāĻ•āϟāĻŋ āĻļā§‚āĻ¨ā§āϝ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ⧇āϰ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ ("") āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ CurDir āĻŦāĻ°ā§āϤāĻŽāĻžāύ āĻĄā§āϰāĻžāχāϭ⧇āϰ āϜāĻ¨ā§āϝ āĻĒāĻžāĻĨ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āϝāĻĻāĻŋ āĻĄā§āϰāĻžāχāĻ­ āĻŦāĻ°ā§āĻŖāύāĻžāϰ āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ āϭ⧁āϞ āĻšā§Ÿ, āĻĄā§āϰāĻžāχāĻ­āϟāĻŋ āωāĻĒāĻ¸ā§āĻĨāĻŋāϤ āύāĻž āĻĨāĻžāϕ⧇ āĻ…āĻĨāĻŦāĻž Lastdrive āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ CONFIG.SYS āĻ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŋāϤ āĻ…āĻ•ā§āώāϰ⧇āϰ āĻĒāϰ⧇āϰ āĻ…āĻ•ā§āώāϰ āĻĻā§āĻŦāĻžāϰāĻž āĻĄā§āϰāĻžāχāĻ­āϟāĻŋ āύāĻŋāĻ°ā§āĻĻ⧇āĻļāĻŋāϤ āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ LibreOffice āĻŦ⧇āϏāĻŋāĻ• āĻāĻ•āϟāĻŋ āĻ¤ā§āϰ⧁āϟāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āĻāχ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻ…āĻ•ā§āώāϰ⧇āϰ āĻ›āĻžāρāĻĻ āύāĻŋāĻ°ā§āĻ­āϰāĻļā§€āϞ āύ⧟āĨ¤

Error codes:

5 Invalid procedure call

68 Device not available 68 Device not available

7 Out of memory

51 Internal error 51 Internal error 51 Internal error

āωāĻĻāĻžāĻšāϰāĻŖ:


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