CurDir Function

སྒུལ་ཆས་གཏན་འཁེལ་བྱེད་པའི་མིག་སྔའི་བརྒྱུད་ལམ་གྱི་འགྱུར་གཟུགས་ཡིག་རྟགས་ཕྲེང་བ་མཚོན་པ་ཞིག་ཕྱིར་ལོག་བྱེད།

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

བརྡ་འཕྲོད་

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