Do...Loop Statement
āĻļāϰā§āϤāĻāĻŋ True āĻšāϞ⧠āĻ āĻĨāĻŦāĻž True āύāĻž āĻšāĻā§āĻž āĻĒāϰā§āϝāύā§āϤ Do āĻāĻŦāĻ āϞā§āĻĒ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ
Do [{While | Until} condition = True]āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
[Exit Do]āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
Loopor
DoāϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
[Exit Do]āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
Loop [{While | Until} condition = True]āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ/āĻāϞāĻŋāĻŽā§āύā§āĻ
āĻ āĻŦāϏā§āĻĨāĻž: āĻāĻāĻāĻŋ āϤā§āϞāύāĻžāĻŽā§āϞāĻ, āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻ āĻĨāĻŦāĻž āϏā§āĻā§āϰāĻŋāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ, āϝāĻž āĻšā§ True āĻ āĻĨāĻŦāĻž False āĻšāĻŋāϏā§āĻŦā§ āĻŽā§āϞā§āϝāĻžā§āĻŋāϤ āĻšā§āĨ¤
āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ: āϏā§āĻā§āĻāĻŽā§āύā§āĻ āϝāĻž āĻļāϰā§āϤāĻāĻŋ True āĻšāϞ⧠āĻ āĻĨāĻŦāĻž True āύāĻž āĻšāĻā§āĻž āĻĒāϰā§āϝāύā§āϤ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āĻāĻāĻāĻŋ āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āĻļāϰā§āϤ True āύāĻž āĻšāĻā§āĻž āĻĒāϰā§āϝāύā§āϤ Do...Loop āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻāĻžāϞāĻžāύ⧠āĻšā§āĨ¤ āĻ āĻŦāĻļā§āϝāĻ Do āĻ āĻĨāĻŦāĻž Loop āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻ āύā§āϏāϰāĻŖ āĻāϰ⧠āϞā§āĻĒ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύā§āϰ āĻļāϰā§āϤ āϏāύā§āύāĻŋāĻŦā§āĻļ āĻāϰāĻžāϤ⧠āĻšāĻŦā§āĨ¤ āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāϏāĻŽā§āĻš āĻšāϞ⧠āĻŦā§āϧ āϏāĻŽāĻžāĻšāĻžāϰ:
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ
Do While condition = True...statement block
LoopāĻļāϰā§āϤāĻāĻŋ āϝāĻĻāĻŋ True āύāĻž āĻšā§ āϤāĻžāĻšāϞ⧠Do While āĻāĻŦāĻ āϞā§āĻĒ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
Do Until condition = True...statement block
LoopāĻļāϰā§āϤāĻāĻŋ āϝāĻĻāĻŋ false āύāĻž āĻšā§ āϤāĻžāĻšāϞ⧠Do āĻāĻŦāĻ āϞā§āĻĒ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
Do...statement block
Loop While condition = TrueāĻļāϰā§āϤāĻāĻŋ āϝāĻĻāĻŋ True āύāĻž āĻšā§ āϤāĻžāĻšāϞ⧠Do āĻāĻŦāĻ āϞā§āĻĒ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
Do...statement block
Loop Until condition = TrueāĻļāϰā§āϤāĻāĻŋ True āύāĻž āĻšāĻā§āĻž āĻĒāϰā§āϝāύā§āϤ Do āĻāĻŦāĻ āϞā§āĻĒ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻļāϰā§āϤāĻšā§āύāĻāĻžāĻŦā§ āϞā§āĻĒāĻāĻŋ āϏāĻŽāĻžāĻĒā§āϤ āĻāϰāĻžāϰ āĻāύā§āϝ Exit Do āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§āύāĨ¤ āĻāĻĒāύāĻŋ Do...Loop āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āϝā§āĻā§āύ⧠āϏā§āĻĨāĻžāύ⧠āĻāĻ āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āϝā§āĻ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύāĨ¤ āĻāĻĒāύāĻŋ āύāĻŋāĻŽā§āύāϰā§āĻĒā§ If...Then āĻāĻžāĻ āĻžāĻŽā§ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āĻĒā§āϰāϏā§āĻĨāĻžāύ āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ:
Do...statements
If condition = True Then Exit Dostatements
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