Do...Loop Statement
Repeats the statements between the Do and the Loop statement while the condition is True or until the condition becomes True.
Do {While | Until} condition = True
' Do While: The statement block is repeated as long as the condition is true
' Do Until: The statement block is repeated as long as the condition is false
statements
[Exit Do]
statements
Loop
Do
statements
[Exit Do]
statements
' Loop While: The statement block repeats as long as the condition is true
' Loop Until: The statement block repeats until the condition is true
Loop {While | Until} condition = True
The Do...Loop statement executes a loop as long as, or until, a certain condition is True. The condition for exiting the loop must be entered following either the Do or the Loop statement. The above examples are valid combinations.
condition: A comparison, numeric or Basic expression, that evaluates to either True or False.
statements: Statements that you want to repeat while or until a condition is True.
āĻļāĻ°ā§āĻ¤āĻšā§āĻ¨āĻāĻžāĻŦā§ āĻ˛ā§āĻĒāĻāĻŋ āĻ¸āĻŽāĻžāĻĒā§āĻ¤ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ Exit Do āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨āĨ¤ āĻāĻĒāĻ¨āĻŋ Do...Loop āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻā§āĻ° āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸ā§āĻĨāĻžāĻ¨ā§ āĻāĻ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻ¯ā§āĻ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨āĨ¤ āĻāĻĒāĻ¨āĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§āĻĒā§ If...Then āĻāĻžāĻ āĻžāĻŽā§ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻāĻāĻŋ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĻ¨:
Do...
statements
If condition = True Then Exit Do
statements
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