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