Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei wird gelöscht
Autor: Soulfly
Datum: 20.02.06 13:37
Folgendes Skript dient dazu mehrere Dateien zu einer zusammenzufassen. Die funktioniert in 99,9 % aller Fälle. Sind sehr viele Dateien zusammenzufassen werden diese gelöscht ! Hab leider keine Ahnung warum. Private Sub Form_Load() Dim sNewFile As String Dim sPath As String Dim sFile As String Dim sBuffer As String Dim F As Integer sPath = "\\ka-erp\import\live\" sFile = Dir$(sPath & "*.inh") 'Neuen Name vergeben sNewFile = "\\ka-erp\import\live\" & "1" & sFile Do While sFile <> "" If sFile <> "." And sFile <> ".." Then ' Inhalt einlesen F = FreeFile Open sPath & sFile For Binary As #F sBuffer = Space$(LOF(F)) Get #F, , sBuffer Close #F ' Inhalt an neue Textdatei anhängen F = FreeFile Open sNewFile For Append As #F Print #F, sBuffer; Close #F End If Kill sPath & sFile sFile = Dir$ Loop Unload Me End Sub

Datei wird gelöscht	748	Soulfly	20.02.06 13:37
Re: Datei wird gelöscht	490	brave@heart	20.02.06 18:49
Re: Datei wird gelöscht	499	Soulfly	21.02.06 07:29
Re: Datei wird gelöscht	524	vbtricks	21.02.06 10:05
Re: Datei wird gelöscht	486	QDaniel	21.02.06 17:18
Re: Datei wird gelöscht	451	Soulfly	22.02.06 07:35

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