Instruction Do...Loop

Répète l'instruction entre Do et l'instruction Loop alors que la condition est True ou jusqu'à ce que la condition devienne True.

  Do {While | Until} condition = True
  ' Do While: le bloc d'instruction est répété tant que la condition est vraie
  ' Do Until: le bloc d'instruction est répété tant que la condition est fausse
     statements
     [Exit Do]
     statements
  Loop

  Do
     statements
     [Exit Do]
     statements
  ' Loop While: le bloc d'instruction est répété tant que la condition est vraie
  ' Loop Until: le bloc d'instruction est répété jusqu'à ce que la condition soit vraie
  Loop {While | Until} condition = True

L'instruction Do ... Loop exécute une boucle tant que, ou jusqu'à ce qu'une certaine condition soit True. La condition de sortie de la boucle doit être saisie après l'instruction Do ou Loop. Les exemples ci-dessus sont des combinaisons correctes.

condition: une comparaison, expression numérique ou basique, qui donne la valeur True ou False.

statements: instructions que vous voulez répéter alors ou jusqu'à ce qu'une condition soit True.

Servez-vous de l'instruction Exit Do pour mettre fin à la boucle sans condition. Vous pouvez ajouter cette instruction en n'importe quel point d'une instruction Do...Loop. Vous pouvez également définir une condition de sortie à l'aide de la structure If...Then, comme suit :

  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