CurDir Function
སྒུལ་ཆས་གཏན་འཁེལ་བྱེད་པའི་མིག་སྔའི་བརྒྱུད་ལམ་གྱི་འགྱུར་གཟུགས་ཡིག་རྟགས་ཕྲེང་བ་མཚོན་པ་ཞིག་ཕྱིར་ལོག་བྱེད།
བརྡ་འཕྲོད་
CurDir [(Text As String)]
ཕྱིར་ལོག་ཐང་
ཡིག་རྟགས་ཕྲེང་བ་
ཁུགས་གྲངས་
Text ད་ཡོད་སྒུལ་ཆས་ཀྱི་ཡིག་རྟགས་ཕྲེང་བ་གང་རུང་མཚོན་ཚུལ་གཏན་འཁེལ་ལ་སྤྱོད་པ།(དཔེར་ན་"C"ཡིས་མཁྲེགས་སྡེར་ཨང་དང་པོའི་སྒུལ་ཆས་ཀྱི་དབྱེ་ཁུལ་ཨང་དང་པོ་མཚོན་)
གལ་སྲིད་སྒུལ་ཆས་གཏན་འཁེལ་བྱས་མེད་པའམ་གཏན་འཁེལ་བྱས་པའི་སྒུལ་ཆས་ཀྱི་རིང་ཚད་ཀླད་ཀོར་ཡིན་པའི་ཡིག་རྟགས་ཕྲེང་བ་ཡིན་ན་ ("") CurDir མིག་མདུན་སྒུལ་ཆས་ཀྱི་བརྒྱུད་ལམ་ལ་ཕྱིར་ལོག་བྱེད། གལ་ཏེ་སྒུལ་ཆས་ཀྱི་བརྡ་སྤྲོད་ཡང་དག་མིན་པ་གསལ་བཤད་བྱས་ན་ སྒུལ་ཆས་མི་གནས་པའམ་སྒུལ་ཆས་ཨང་ CONFIG.SYS ནང་ Lastdrive རྗོད་པ་མཚན་འཇོག་གི་སྒུལ་ཆས་ཨང་གི་རྗེས་སུ་ཐོན་ 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