✔ Filtern und aussortieren!

[Joachim123]

Hey Jacka!

Vielen Dank für deine Hilfe.

 

[Jacka]

Hi!

Also wenn die CMT-Datei eigentlich nur eine Text-Datei ist, dann kannst du diese recht
einfach auslesen/darin suchen.
Auf vb-archiv gibt es eine gute Anleitung, wie man in Dateien schnell suchen kann.
Link-> http://www.vbarchiv.net/archiv/tipp_details.php?pid=410

Das machst du mit allen Dateien in deinem Ordner (mit Dir).
So z.B.:

Dim cFile As String
Dim IngPos As Long
 
cFile = Dir("C:\*.CMT") ' Alle Textdateien im Verzeichnis C: ausgeben
Do While cFile <> "" ' Wiederholen bis cFile=""
lngPos = SearchFileForText("c:\test.dat", "Suchtext") ' Funktion von vb-Archiv
If lngPos > 0 Then
  ' Suche mit Dir nach Filenamen in dem Ordner und zippe sie.
Else
  MsgBox "Suchtext nicht gefunden!"
End If
Loop

Viele Grüße,
Jacka