Do...Loop Statement

Repite les instrucciones qu'haya ente Do y Loop mientres la condición seya cierta o hasta que la condición resulte ser cierta.

Sintaxis

Do [{While | Until} condición = cierta]

bloque d'instrucciones

[Exit Do]

bloque d'instrucciones

Loop

o

Do

bloque d'instrucciones

[Exit Do]

bloque d'instrucciones

Loop [{While | Until} condición = cierta]

Parámetros/Elementos

Condición: Una comparanza, espresión numbérica o de cadena, que s'evalúa como cierta o falsa.

Bloque d'instrucciones: Instrucciones que se deseye repitir mientres o hasta que la condición resulte ser cierta.

La instrucción Do...Loop executa un bucle mientres o hasta qu'una condición concreta seya cierta. La condición pa salir del bucle tien d'introducise siguiendo les intrucciones de Do o Loop. Los exemplos siguientes son combinaciones válides:

Sintaxis

Do While condición = cierta

...bloque d'instrucciones

Loop

El bloque d'instrucciones asitiáu ente Do While y Loop repitir mientres la condición siga siendo cierta.

Do Until condición = cierta

...bloque d'instrucciones

Loop

El bloque d'instrucciones asitiáu ente Do Until y Loop repitir mientres la condición seya falsa.

Do

...bloque d'instrucciones

Loop While condición = cierta

El bloque d'instrucciones asitiáu ente Do y Loop repitir mientres la condición siga siendo cierta.

Do

...bloque d'instrucciones

Loop Until condición = cierta

El bloque d'instrucciones asitiáu ente Do y Loop repitir hasta que la condición seya cierta.

La instrucción Exit Do utilizar pa finar el bucle incondicionalmente. Esta instrucción pue amestar en cualesquier parte d'una estructura Do...Loop. Tamién pue definir una condición de salida utilizando la estructura If...Then del mou siguiente:

Do...

instrucciones

If condición = cierta Then Exit Do

instrucciones

Loop...

Exemplu

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