Do...Loop Statement
рдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рднрдЗрд░рд╣реЗрдХреЛ рдмреЗрд▓рд╛ рд╡рд╛ рд╕рддреНрдп рдЕрд╡рд╕реНрдерд╛ рдЖрдЗрд░рд╣реЗрдХреЛрдмреЗрд▓рд╛ рд╕рдореНрдо рдЧрд░реНрдиреБрд╣реЛрд╕реН рд░ рд▓реВрдк рдХрдердирдХреЛ рдмреАрдЪрдорд╛ рдХрдердирд╣рд░реВ рджреЛрд╣реЛрд░реНрдпрд╛рдЙрдиреБрд╣реЛрд╕реН ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛
рдЧрд░реНрдиреБрд╣реЛрд╕реН [{рдЬрдм | рдЬрдмрд╕рдореНрдо} рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдп]рдХрдерди рдЦрдгреНрдб
[Exit Do]рдХрдерди рдЦрдгреНрдб
рд▓реВрдкрд╡рд╛
рдЧрд░реНрдиреБрд╣реЛрд╕реНрдХрдерди рдЦрдгреНрдб
[Exit Do]рдХрдерди рдЦрдгреНрдб
рд▓реВрдк[{рдЬрдм | рдЬрдмрд╕рдореНрдо} рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдп]рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрд╣рд░реВреНрд╡рд╣рд░реВ
рдЕрд╡рд╕реНрдерд╛: рдПрдЙрдЯрд╛ рддреБрд▓рдирд╛, рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐,рдЬрд╕рд▓реЗ рдХрд┐рдд рдЭреБрдареЛ рдпрд╛рдд рд╕рддреНрдп рдореВрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрджрдЫ ред
рдХрдерди рдЦрдгреНрдб: рдХрдерди рдЬрд╕рд▓рд╛рдИ рдЬрдм рд╡рд╛ рдЬрдмрд╕рдореНрдо рдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рд╣реБрдиреНрдЫ рддрдкрд╛рдИрдБ рджреЛрд╣реЛрд░реНрдпрд╛рдЙрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдЧрд░реНрдиреБрд╣реЛрд╕реН...рд▓реВрдк рдХрдердирд▓реЗ рд▓реВрдк рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЬрдмрд╕рдореНрдо рдЧрд░рд┐рд░рд╣рдиреНрдЫ рдмрд╛ рддрдм рд╕рдореНрдо рдирд┐рд╢реНрдЪрд┐рдд рдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рд╣реБрдиреНрдЫ ред рдЕрд╡рд╕реНрдерд┐рдд рд▓реВрдкрдХреЛрд▓рд╛рдЧрд┐ рдЕрд╡рд╕реНрдерд╛ рдХрд┐рдд рджрд┐рдПрдХреЛрдЧрд░реНрдиреБрд╣реЛрд╕реН рдпрд╛рдд рд▓реВрдк рдХрдерди рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рдЧрд░реНрдиреИ рдкрд░реНрджрдЫ ред рдпреА рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрд╣рд░реВ рд╕рдВрдпреЛрдЬрдирд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐ рд╡реИрдз рдЫрдиреН:
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛
рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЬрдм рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдп...рдХрдерди рдЦрдгреНрдб
рд▓реВрдкрдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рднрдПрд╕рдореНрдо рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЬрдм рд░ рд▓реВрдк рдХрдердирд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдХрдерди рдЦрдгреНрдб рджреЛрд╣реЛрд░рд┐ рд░рд╣рдиреНрдЫ ред
рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЬрдмрд╕рдореНрдо рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдп...рдХрдерди рдЦрдгреНрдб
рд▓реВрдкрдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рдЭреБрдареЛ рдирднрдПрд╕рдореНрдо рдЕрд╡рд╕реНрдерд╛ рд▓рдореНрдмрд┐рд░рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЬрдмрд╕рдореНрдо рд░ рд▓реВрдк рдХрдердирд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдХрдерди рдЦрдгреНрдб рджреЛрд╣реЛрд░рд┐рд░рд╣рдиреНрдЫрдиреН ред
рдЧрд░реНрдиреБрд╣реЛрд╕реН...рдХрдерди рдЦрдгреНрдб
рд▓реВрдк рдЬрдм рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдпрдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рднрдПрд░ рд▓рдореНрдмрд┐рд░рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН рд░ рд▓реВрдк рдХрдердирд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдХрдерди рдЦрдгреНрдб рджреЛрд╣реЛрд░рд┐рд░рд╣рдиреНрдЫрдиреН ред
рдЧрд░реНрдиреБрд╣реЛрд╕реН...рдХрдерди рдЦрдгреНрдб
рд▓реВрдкрд▓реВрдкрд╕рдореНрдо рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдпрдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рднрдПрд╕рдореНрдо рдЧрд░реНрдиреБрд╣реЛрд╕реН рд░ рд▓реВрдк рдХрдердирд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдХрдерди рдЦрдгреНрдб рджреЛрд╣реЛрд░рд┐рд░рд╣рдиреНрдЫрдиреН ред
'рдЧрд░реНрдиреБрд╣реЛрд╕реН' рдмрд╛рдЯ рдмрд╛рд╣рд┐рд░рд┐рдиреБрд╣реЛрд╕реН рдХрдердирд▓реЗ рдЕрдкреНрд░рд╛рд╕рдпреЛрдЧрд┐рдХ рдЕрдиреНрддреНрдпрд▓рд╛рдИ рд▓реВрдк рдЧрд░реНрджрдЫ ред рддрдкрд╛рдИрдБ рдпреЛ рдХрдердирд▓рд╛рдИ рдЧрд░реНрдиреБрд╣реЛрд╕реН...рд▓реВрдкрдХрдердирдХреЛ рдЬреБрдирд╕реБрдХреИ рд╕реНрдерд╛рдирдорд╛ рдердкреНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред рддрдкрд╛рдИрдБ рдпрджрд┐...рддреНрдпрд╕рдкрдЫрд┐рдмрдиреМрдЯрдХреЛ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрд░ рдЕрд╡рд╕реНрдерд┐рдд рдЕрд╡рд╕реНрдерд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ рдЬреБрди рддрд▓рджрд┐рдПрдХреЛ рдЫ:
рдЧрд░реНрдиреБрд╣реЛрд╕реН...рдХрдердирд╣рд░реВ
If condition = True Then Exit DoрдХрдердирд╣рд░реВ
рд▓реВрдк..рдЙрджрд╛рд╣рд░рдг
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