element | Proměnná použitá k iteraci položek pole nebo kolekce objektů. |
---|---|
group | Název pole nebo kolekce objektů. |
příkazy | Jeden nebo více příkazů, které se provádějí pro každou položku. |
Exit For může být použit pouze uvnitř For Each...Next nebo For...Next a poskytuje alternativní způsob ukončení cyklu. Jakýkoli počet příkazů Exit For může být umístěn kdekoliv v cyklu. Exit For je často používán s vyhodnocením podmínky (např. If...Then...Else) a předává řízení příkazu následujícímu za příkazem Next.
Příkaz lze vnořit do jiného cyklu, nicméně každý cyklus musí mít jiný název položky.
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next