Module
Contents
Index 🔎︎

# 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