Module
Contents
Index 🔎︎

# 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 ཧུང་ནོར་འཁྲུལ་སྙན་ཞུ་བྱེད།

རྟེན་གྲངས་འདི་ལ་ཡིག་ཆེན་ཡིག་ཆུང་གི་དབྱེ་བ་མེད།

## Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

68 སྒྲིག་ཆས་68 སྒྲིག་ཆས་68 སྒྲིག་ཆས་

7 ནས་གསོག་མི་འདང་བ་

51 ནང་ཁུལ་ནོར་འཁྲུལ་51 ནང་ཁུལ་ནོར་འཁྲུལ་51 ནང་ཁུལ་ནོར་འཁྲུལ་51 ནང་ཁུལ་ནོར་འཁྲུལ་

## དཔེ་གཞི་

    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