J
Joachim123
Hey Jacka!
Vielen Dank für deine Hilfe.
Vielen Dank für deine Hilfe.
Zuletzt bearbeitet von einem Moderator:
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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