Do...Loop Statement
གནས་སྟངས་དེ་བདེན་པ་ཡང་ན་གནས་སྟངས་བདེན་པ་ཚུན་སྐབསའཕྲལ་བཀོལ་གསལ་བཤད་དང་ འབད་ བར་ན་གསལ་བཤད་ཚུ་བསྐྱར་ལོག་འབདཝ་ཨིན།
ཚིག་སྦྱོར།
འབད་ [{While | Until} condition = True]
གསལ་བཤད་འགག་ནི།
[ཕྱིར་ཐོན་འབད]
གསལ་བཤད་འགག་ནི།
འཕྲལ་བཀོལ།
ཡང་་ན།
འབད།
གསལ་བཤད་འགག་ནི།
[ཕྱིར་ཐོན་འབད]
གསལ་བཤད་འགག་ནི།
འཕྲལ་བཀོལ་ [{While | Until} condition = True]
ཚད་བཟུང་ཚུ/རྒྱུ་རྫས་ཚུ།
གནས་སྟངས་: ཨང་གྲངས་ཀྱི་ཡང་ན་ཡིག་རྒྱུན་་གསལ་བརྗོད་ དེ་བདེན་པ་ཡང་ན་རྫུན་པ་བརྟག་ཞིབ་འབད་བའི་ག་བསྡུར་འབད་ནི།
གསལ་བཤད་སྡེབ་ཚན་: གསལ་བཤད་ཚུ་དེ་ཁྱོད་ཀྱིས་གནས་སྟངས་དེའི་སྐབས་ཡང་ན་ཚུན་དེ་བདེན་པ།
འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་དེ་རིངམ་སྦེ་ཡང་ན་ ངེས་ཅན་གནས་སྟངས་དེ་བདེན་པ་ཚུན་ཚོད་འཕྲལ་བཀོལ་ཅིག་ལག་ལེན་འཐབ་ཨིན། འཕྲལ་བཀོལ་ཕྱིར་ཐོན་དོན་ལུ་གནས་སྟངས་དེ་འོག་གི་ འབད་ ཡང་ན་ འཕྲལ་བཀོལ་ གསལ་བཤད་དེ་བཙུགས་དགོཔ་ཨིན། འོག་གི་དཔེར་མཛོད་ཚུ་ནུས་ཅན་མཉམ་མཐུད་ཚུ་་ཨིན:
ཚིག་སྦྱོར།
གནས་སྟངས་ = བདེན་པའི་སྐབས་འབད།
...གསལ་བཤད་འགག་ནི།
འཕྲལ་བཀོལ།
གསལ་བཤད་བཀག་དམ་ འབད་སྐབས་དང་ འཕྲལ་བཀོལ་གསལ་བཤད་བར་ན་དེ་གནས་སྟངས་དེ་བདེན་པ་སྦེ་བསྐྱར་ལོགཔ་ཨིན།
གནས་སྟངས་ = བདེན་པ་ཚུན་འབད།
...གསལ་བཤད་འགག་ནི།
འཕྲལ་བཀོལ།
གསལ་བཤད་བཀག་དམ་་འབད་ཚུན་ཚོད་ དང་ འཕྲལ་བཀོལ་གསལ་བཤད་བར་ན་དེ་ གནས་སྟངས་དེ་གནས་སྟངས་རྫུན་མ་སྦེ་བསྐྱར་ལོག་འབད་ཡོདཔ་ཨིན།
འབད།
...གསལ་བཤད་འགག་ནི།
གནས་སྟངས་ = བདེན་པའི་སྐབས་འཕྲལ་བཀོལ་འབད།
གསལ་བཤད་བཀག་དམ་ འབད་དང་ འཕྲལ་བཀོལ་གསལ་བཤད་ཚུ་བར་ན་གནས་སྟངས་དེ་བདེན་པ་སྦེ་སླར་ལོགཔ་ཨིན།
འབད།
...གསལ་བཤད་འགག་ནི།
གནས་སྟངས་ = བདེན་པ་ཚུན་འཕྲལ་བཀོལ་འབད།
གསལ་བཤད་སྡེབ་ཚན་ འབད་དང་་གསལ་བཤད་ཚུ་འཕྲལ་བཀོལ་བར་ན་གནས་སྟངས་དེ་བདེན་པ་ཚུན་ཡང་བསྐྱར་འབདཝ་ཨིན།
ཕྱིར་ཐོན་འབད་ གསལ་བཤད་དེ་ འཕྲལ་བཀོལ་དེ་གནས་སྟངས་མེདཔ་ལུ་ལག་ལེན་འཐབ། ཁྱོད་ཀྱིས་འ་ནི་གསལ་བཤད་དེ་ འབད་...འཕྲལ་བཀོལ་ གསལ་བཤད་ནང་ག་སྟོ་ལུ་ར་ཁ་སྐོང་འབད་བཏུབ། ཁྱོད་ཀྱིས་ད་རུང་ཡང་ ཨིན་པ་ཅིན་...དེ་ལས་ གཞི་བཀོད་འོག་ལུ་བཟུམ་སྦེ་ལག་ལེན་འཐབ་དེ་ཕྱིར་ཐོན་ཅིག་ངེས་འཛིན་འབད་བཏུབ:
འབད...
གསལ་བཤད་ཚུ།
གནས་སྟངས་ = བདེན་པ་ཨིན་པ་ཅིན་དེ་ལས་ཕྱིར་ཐོན་འབད།
གསལ་བཤད་ཚུ།
ལུང་ཐག...
དཔེར་བརྗོད།
Sub ExampleDoLoop
Dim sFile As String
Dim sPath As String
sPath = "c:\"
sFile = Dir$( sPath ,22)
If sFile <> "" Then
Do
MsgBox sFile
sFile = Dir$
Loop Until sFile = ""
End If
End Sub