stFile = Dir() in Schleife und darin Datei = Dir()
15.09.2003 16:04:38
Veit
ich brauche mal wieder Eure Hilfe. Da habe ich mir aus dem Forum aus diversen Bausteinen ein Stück Code zusammen gestrickt. Das soll folgendes machen:
in einem Ordner sollen alle Ordner untersucht werden ob Ihr Namen länger 6 Zeichen ist. Bei Zutreffen If Len(quelle) > 6 Then sollen alle Dateien dieses Ordners in den Ordner verschoben werden der den 2 Zeichen kürzeren Namen hat.
Fragt mich bitte nicht was das soll. Das ist nun mal passiert.
Aber irgendwie fällt er mit dem ineinandergeschachtelten Dir() auf die Schn...
Ich habe allerdings keine Ahnung, was ich falsch mache.
Habt Ihr einen Tip für mich
Danke
Ein Veit
Sub OrdnerListe()
Dim Directory$, stFile$, Msg$, dName$, Pfad$
Dim R%, C%
Dim rtn As Double
Directory = "F:\rgp-safe\"
stFile = Dir(Directory, vbDirectory)
C = 0
Do While stFile <> ""
If stFile = "." Or stFile = ".." Then
ElseIf (GetAttr(Directory & stFile) And vbDirectory) = vbDirectory Then
Ziel = Left(stFile, 6)
quelle = stFile
If Len(quelle) > 6 Then
'jetzt noch alle Dateien aus der Quelle ins Ziel rüberkopieren
Datei = Dir(Directory & quelle & "\*.TIF")
Do While Datei <> ""
rtn = CopyFile(Directory & quelle & "\" & Datei, Directory & Ziel & "\" & Datei, False)
Datei = Dir()
Loop
End If
End If
stFile = Dir()
Loop
End Sub