Dateien löschen

Bild

Betrifft: Dateien löschen von: Rene
Geschrieben am: 06.02.2005 13:24:42

Moin zusammen,

Da ich nun wieder arbeiten kann, hätte ich leider auch gleich ein Problem.
Ich habe dieses mir erstellt:


Sub Dateien_loeschen()
If Range("G7") = "" Then
kill "C:\Temp\Mp000.txt"
kill "C:\Temp\Mp000.ps"
End If
If Range("G8") = "" Then
kill "C:\Temp\Mp001.txt"
kill "C:\Temp\Mp001.ps"
End If
If Range("G9") = "" Then
kill "C:\Temp\Mp002.txt"
kill "C:\Temp\Mp002.ps"
End If
.............
If Range("G86") = "" Then
kill "C:\Temp\Mp079.txt"
kill "C:\Temp\Mp079.ps"
End If
End Sub


Da dieses bis zur Zeile 86 geht und die Dateien bis 079 geht würde ich dieses gerne kürzer fassen wollen, aber leider weiß ich nicht wie. Könnte mir dabei jemand helfen?

Gruß Rene
Bild


Betrifft: AW: Dateien löschen von: Ulf
Geschrieben am: 06.02.2005 13:32:53

So in der Art:

Option Explicit
Sub kill_it()
Dim d As Integer, t As Integer
For d = 7 To 86
t = d - 7
  If Range("G" & d) = "" Then
    On Error Resume Next
      Kill "C:\Temp\Mp00" & t & ".txt"
      Kill "C:\Temp\Mp00" & t & ".ps"
    On Error GoTo 0
  End If
Next
End Sub


Ulf


Bild


Betrifft: AW: Dateien löschen von: Kurt
Geschrieben am: 06.02.2005 13:35:16

hi,

Sub Dateien_loeschen()
Dim i As Byte
For i = 7 To 79
If Cells(i, 6) = "" Then
Kill "C:\Temp\Mp" & Format(i - 7, "000") & ".txt"
Kill "C:\Temp\Mp" & Format(i - 7, "000") & ".ps"
End If
Next i
End Sub


...und Tschüss Kurt


Bild


Betrifft: AW: Dateien löschen von: Rene
Geschrieben am: 06.02.2005 13:48:20

Hallo,

Danke Euch beiden klappt prima bin immer wieder froh hier reinzuschauen weil man immer Hilfe bekommt.

Danke noch mal

Rene


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien löschen"