J
Joachim123
Hey Jacka!
Vielen Dank für deine Hilfe.
Vielen Dank für deine Hilfe.
Zuletzt bearbeitet von einem Moderator:
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
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