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

Please support us!