vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
For each Schleife 
Autor: DerPate
Datum: 06.05.06 11:08
Hallo Community!

Ich habe ein Problem mit folgendem Code: 

 If (fso.FolderExists(txtDatei)) Then
            Set f = fso.GetFolder(txtDatei)
            Set fc = f.Files
            Set ff = f.SubFolders
                For Each f1 In fc
                    s = s & f1.Name
                    s = txtDatei & "\" & s
                    CopyFunction s, txtDurchlauf.Text
                    s = ""
                Next
 
                For Each f2 In ff
                    For Each f3 In f2
                        s = txtDatei & "\" & f2 & "\" & f3.Name
                        CopyFunction s, txtDurchlauf.Text
                        s = ""
                    Next
                Next
Diese Schleife soll alle Unterordner eines Ordners durchsuchen und die dort vorhandenen Dateien (mittels der Funktion) kopieren.
Nur klappt das bei mir nicht, es kommt eine Fehlermeldung in Zeile 13:

For Each f2 In ff
For Each f3 In f2

da f2 ja nur eine Prüfvariable ist, kann sie icht so ohne weiteres weiterverwendet werden, deswegen hab ich es mit set versucht:

For Each f2 In ff
set Variable = f2
For Each f3 In Variable

was aber auch nicht funktioniert hat.

Kann mir bitte jemand helfen?
VIelen Danke schon mal!
Schöne Grüße
DerPate
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
For each Schleife744DerPate06.05.06 11:08
Re: For each Schleife479Holli07.05.06 16:52
Re: For each Schleife470Holli07.05.06 16:54
Re: For each Schleife476DerPate08.05.06 10:37

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel