Modul
Obsah
Index 🔎︎

# Příkaz Do...Loop

Příkazy mezi příkazy Do a Loop se budou opakovat, je-li podmínka splněna nebo do splnění podmínky.

## Syntaxe

    Do [{While | Until} Podmínka = True]

blok příkazů

    [Exit Do]

blok příkazů

    Loop

or

    Do

blok příkazů

    [Exit Do]

blok příkazů

    Loop [{While | Until} Podmínka = True]

## Parametry/elementy

Podmínka: Porovnávací, číselný nebo řetězcový výraz, který se vyhodnotí jako True nebo False.

Blok příkazů: Příkazy, které se opakují podle platnosti podmínky.

Příkaz Do...Loop se spouští ve smyčce podle platnosti podmínky. Podmínka pro ukončení smyčky se zadává buď po Do nebo Loop. Následující příkazy jsou platné kombinace:

## Syntaxe

    Do While Podmínka = True

...blok příkazů

    Loop

Blok příkazů mezi příkazy Do While a Loop se opakuje tak dlouho, dokud je podmínka True.

    Do Until Podmínka = True

...blok příkazů

    Loop

Blok příkazů mezi příkazy Do Until a Loop se opakuje, dokud je podmínka False.

    Do

...blok příkazů

    Loop While Podmínka = True

Blok příkazů mezi Do a Loop se opakuje tak dlouho, dokud je podmínka True.

    Do

...blok příkazů

    Loop Until Podmínka = True

Blok příkazů mezi příkazy Do a Loop se opakuje, dokud pomídnka je True.

Bezpodmínečně smyčku ukončíte příkazem Exit Do. Tento příkaz je možné přidat kamkoliv mezi příkazy Do...Loop. Ukončovací podmínku je také možné určit pomocí struktury If...Then takto:

    Do...

příkazy

    If Podmínka = True Then Exit Do

příkazy

    Loop...

## Příklad

    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