Instrução Do...Loop
Repete as instruções entre as instruções Do e Loop enquanto a condição for True ou até que a condição se torne True.
Do {While | Until} condition = True
' Do While: O bloco de instruções é repetido enquanto a condição for verdadeira
' Do Until: O bloco de instruções é repetido enquanto a condição for falsa
statements
[Exit Do]
statements
Loop
Do
statements
[Exit Do]
statements
' Loop While: O bloco de instruções repete-se enquanto a condição for verdadeira
' Loop Until: O bloco de instruções repete-se até que a condição seja verdadeira
Loop {While | Until} condition = True
A instrução Do...Loop executa um ciclo enquanto, ou até que, uma determinada condição for True. A condição para sair do ciclo deve ser indicada a seguir à instrução Do ou à instrução Loop. Os exemplos acima são combinações válidas.
condição: Uma comparação, expressão numérica ou expressão Basic, cujo resultado é True ou False.
instruções: Instruções que se pretende repetir enquanto ou até que uma condição seja True.
Utilize a instrução Exit Do para terminar incondicionalmente o ciclo. Pode adicionar esta instrução em qualquer local de uma instrução Do...Loop. Também pode definir uma condição de saída, utilizando a estrutura If...Then da forma que se segue:
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
