CurDir Function
ཡིག་རྒྱུན་མི་མཐུན་པ་གསལ་བཀོད་འབད་ཡོད་པའི་འདྲེན་འཕྲུལ་གྱི་ད་ལྟོའི་འགྲུལ་ལམ་འདིའི་ཁྱབ་ཚད་སླར་ལོགཔ་ཨིན།
ཚིག་སྦྱོར:
ཀར་ཌིར [(Text As String)]
གནས་གོང་སླར་ལོག:
ཡིག་རྒྱུན།
ཚད་བཟུང་ཚུ་:
ཚིག་ཡིག་: ཡིག་རྒྱུན་གསལ་བརྗོད་གང་རུང་ཡོད་པའི་འདྲེན་འཕྲུལ་གསལ་བཀོད་འབདཝ་ཨིན། (for example, "C" for the first partition of the first hard drive).
དྲན་འཕྲུལ་གཅིག་ཡང་གསལ་བཀོད་མེད་པ་ཅིན་ ཡང་ན་དྲན་འཕྲུལ་དེ་ རིང་ཚད་ཀླད་ཀོར་་ཡིག་རྒྱུན་("") ཨིན་པ་ཅིན་ ད་ལྟོའི་དྲན་འཕྲུལ་དོན་ལུ་སི་ཡུ་ཨར་ཌི་ཨའི་ཨར་་འགྲུལ་ལམ་དེ་སླར་ལོགཔ་ཨིན། 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