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