Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien größer als 50 MB nicht durchsuchen?
Autor: Gamer20
Datum: 01.03.04 17:48
Private Sub Command1_Click() Dim erg As String Dim File as string File = "Winword.exe" erg = Space(FileLen(File)) Open File For Binary As 1 Get #1, , erg Close 1 If InStr(1, erg, "Word") > 0 Then End If End Sub wie kann ich das realisieren das Dateien die größer als 50 MB sind, nicht durchsucht werden? Denn wenn ich eine Datei durchsuche die 160 MB groß ist, dann wird meine Auslangerungsdatei bis zu 700 MB groß und das Programm hängt sich auf.

Dateien größer als 50 MB nicht durchsuchen?	817	Gamer20	01.03.04 17:48
Re: Dateien größer als 50 MB nicht durchsuchen?	502	Dieter	01.03.04 17:51
Re: Dateien größer als 50 MB nicht durchsuchen?	479	Gamer20	02.03.04 06:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen