Dateinamen vergleichen

[-cta-]

Guten Morgen!

ich möchte prüfen, ob in einer Datei an einer bestimmten Stelle eine bestimmte Zeichenfolge vorhanden ist...

z.b. 1. - 3. Zeichen des Dateinamens von Datei in c.\neu\

danach möchte ich die 4. - 6. Zeichen dieser Datei mit den 6. - 8. Zeichen einer Datei in c:\alt\ vergleichen.

ich weiss, dass es geht, nur nicht wie....

das ganze unter win2000 und vb6.0

wie mache ich das?


-cta-

 

[Retlaw]

Nicht die eleganteste Lösung aber funktioniert:
Als Test hab ich auf D:\ die Verzeichnisse Alt und Neu mit folgenden Dateien angelegt:
D:\Alt\abc--123-.txt
D:\Neu\abc123---.txt
In die Variable Anfang trägst du ein nach welchen drei Zeichen gesucht wird, im Beispielt "abc".
Nur Dateien die diesem Kriterium entsprechen werden dann berücksichtigt.
Wenn dann noch die Zeichen 4-6 in Neu und 6-8 in Alt übereinstimmen werden die Dateinamen angezeigt.

Dim FSO     As Object
Dim PfadAlt As String
Dim PfadNeu As String
Dim Var1    As String
Dim Var2    As String
Dim Datei   As String
Dim Anfang  As String

Set FSO = CreateObject("Scripting.FileSystemObject")

Anfang = "abc"

PfadAlt = "d:\alt\"
PfadNeu = "d:\neu\"

For Each f In FSO.getFolder(PfadNeu).Files
    Var1 = Right(f, Len(f) - Len(PfadNeu))
    If Left(Var1, 3) = Anfang Then
        For Each f1 In FSO.getFolder(PfadAlt).Files
            Var2 = Right(f1, Len(f1) - Len(PfadAlt))
            If Left(Var2, 3) = Anfang Then
                If Mid(Var1, 4, 3) = Mid(Var2, 6, 3) Then
                    MsgBox "Übereinstimmung gefunden:" & vbCrLf & "Datei Neu: " & Var1 & vbCrLf & "Datei Alt: " & Var2
                End If
            End If
        Next
    End If
Next

Voraussetzung ist ein intalliertes WSH, sollte bei Win2k aber Standard sein.

 

[-cta-]

danke retlaw!

hast mir - wiedermal - geholfen