Vyzkoušejte, jestli nepomůže totoDim dLimit As Date
dLimit = Now + TimeSerial(0, 1, 0)
Do While Not Len(Dir(adresar, vbDirectory)) = 0
If Now > dLimit Then
Exit Do
End If
LoopKontroluje jestli existuje adresář, když neexistuje, jede dál. Kontrola trvá 1 minutu
Psáno zbrucha - otestujte ;)citovat