txt-Dateien löschen
24.09.2006 07:48:04
tina
ich möchte kleine txt-Dateien löschen. Und zwar alle txt-Dateien die kleiner sind als 2KB. Ich hänge im code: Hier mein code:
Sub loeschen_tif()
Dim Schleifendurchlaeufe, i As Long
Dim Pfad As String
Schleifendurchlaeufe =[j1]
Pfad =[I4]
For i = 1 To Schleifendurchlaeufe
ChDir Pfad
If Pfad & "sc00000" & i & ".txt" < 2 Then
MsgBox "kleiner"
Else
MsgBox "grösser"
End If
Next i
End Sub
ich hänge in der if Abfrage ob die txt kleiner 2KB ist.
Vielen Dank für eure Hilfe
LG Tin@
Anzeige