For each

hallo! ich habe eine for each schleife (vb6), die aber nicht bei allen elemten klappt.
wie kann ich erreichen, dass er wenns bei 1 element nicht geht einfach mit dem nächsten in der schleife weitermacht?
resume next geht ja zur nächsten anweisung, also aus der schleife raus.

hallo! ich habe eine for each schleife (vb6), die aber nicht
bei allen elemten klappt.

Hi,
das soll also heissen, dass das was du in der Schleife machst nicht mei allen Elementen klappt? Dann packe doch einfach zwischen For-each und Schleifeninhalt eine Abfrage, dann gehts…

for each elem in menge
 if elem.set=true then
 rumwusel(elem)
 end if
next elem

Ralph

Hi!

Es gibt dafür eine Anweisung, um den Typ des Elements herauszufinden… if element type of textbox oder so ähnlich…weiss jetzt den genauen Befehl net mehr, aber wozu gibts die Hilfe ;o)

Bernd

also ich erklär mal genauer:
ich möchte das temp-verzeichnis leeren, aber dort lassen sich ja manche dateien nicht löschen, da sie noch in use sind o.ä. ich möchte dass dann die nächste datei gelöscht wird, u. nicht die schleife verlassen wird.

Private Sub deltemp()
Dim fc
Dim f1
Dim f
Set f = fso.GetSpecialFolder(TemporaryFolder)
Dim n
Set fc = f.Files
For Each f1 In fc
fso.DeleteFile (f1)
Next
MsgBox „fertig!“

End Sub

Hi!

Da geht doch resume next da es zur next-Anweisung springen würde.

Bernd

hallo fireball,

ON ERROR RESUME NEXT

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]