Do...Loop Statement
ααααΎβααα ααααΈβαααααβααΆαααβαααβαα βα αααααβααα ααααΈβαααααβααΆααα Do αα·α Loop α‘αΎαβαα·α αααβαααβααααααααβαα·α α¬βαα αΌαβαααβααααααααβααααΆαβααΆβαα·αΒ α
ααΆαααβαααααααββ
Do [{While | Until} condition = True]ααααα»αβααα ααααΈβαααααβααΆααα
[Exit Do]ααααα»αβααα ααααΈβαααααβααΆααα
Loopα¬
Doααααα»αβααα ααααΈβαααααβααΆααα
[Exit Do]ααααα»αβααα ααααΈβαααααβααΆααα
Loop [{While | Until} condition = True]αααΆαααΆααααααβ/βααΆαα»
ααααααααα ααααααβααα α¬βααααβα’ααααβαααααααα αααβααΆαβαααααβααΆαα αα·α α¬βαα·αβαα·αΒ α
Statement block α ααα ααααΈβαααααβααΆαααβαααβα’αααβα ααβααααΎβααααβαααααΌαβ While α¬ until βααααααααβαα·αΒ α
ααα ααααΈβαααααβααΆααα Do...Loop ααααα·ααααα·βααααα·αβαα»αβαα½αβαα αΌαβααΆααβααβααααααααβαα·αβααααΆααβαα½αβαα·αΒ α ααααααααβααΎααααΈβα ααβααΈβααααα·αβαα»αβααααΌαβααβαααα αΌαβααααβααΈβααα ααααΈβαααααβααΆααα Do α¬βLoopΒ α α§ααΆα αααβααΆαβαααααβααΊβααΆβαααααβααααΉαααααΌα α
ααΆαααβαααααααββ
Do While condition = True... ααααα»αβααα ααααΈβαααααβααΆααα
Loopααααα»αβααα ααααΈβαααααβααΆαααβαα βα αααααβααα ααααΈβαααααβααΆααα Do While αα·α Loop ααααΌαβααΆαβααααΎβααααβαααβαα αΌαβαααβααααααααβαα·αΒ α
Do Until condition = True... ααααα»αβααα ααααΈβαααααβααΆααα
Loopααααα»αβααα ααααΈβαααααβααΆαααβαα βα αααααβααα ααααΈβαααααβααΆααα Do Until αα·α Loop statements ααααΌαβααΆαβααααΎβααααβααα ααΎβααααααααβαα βααβαα·αβαα·αΒ α
Do... ααααα»αβααα ααααΈβαααααβααΆααα
Loop While condition = Trueααααα»αβααα ααααΈβαααααβααΆαααβαααβαααα·αβαα βα αααααβααα ααααΈβαααααβααΆααα Do αα·α Loop βααααΎβααααβαααβαα αΌαβαααββααααααααβαα·αΒ α
Do... ααααα»αβααα ααααΈβαααααβααΆααα
Loop Until condition = Trueααααα»αβααα ααααΈβαααααβααΆαααβαα βα αααααβααα ααααΈβαααααβααΆααα Do αα·α Loop ααααΎβααααβαααβαα αΌαβαααβααααααααβαα·αΒ α
ααααΎβααα ααααΈβαααααβααΆααα Exit Do ααΎααααΈβαααα ααβααααα·αβαα»αβαααβααααΆαβααααααααΒ α α’αααβα’αΆα βααααααβααα ααααΈβαααααβααΆαααβαααβαα βαααααβααααααβααΆβααβααΆαβαααα»αβααα ααααΈβαααααβααΆααα Do...LoopΒ α α’αααβααβα’αΆα βαααααβααααααααβα αΆαα αα αααβααααΎβαα ααΆβαααααααα If...Then ααΌα βααΆαβααααα α
Do...ααα ααααΈβαααααβααΆααα
If condition = True Then Exit Doααα ααααΈβαααααβααΆααα
Loop...α§ααΆα ααα
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