Datei mit VBA löschen ?

Forumthread: Datei mit VBA löschen ?

03.05.2006 10:37:51

Johannes

Hallo Zusammen,
folgendes Problem: ich lese aus einer *.prn Datei mit Excel Messwerte aus. Im Anschluss wird die *.prn umbenannt und und die "alte"*.prn mit einer Batchdatei gelöscht:
Dim NR As Variant
'holt lfd Nr des Datensatzes
Sheets("Steuerung").Select
NR = Range("B10").Value + 1000
'speichert Datei mit neuem Namen in Archivpfad
Windows("3026W1_6.PRN").Activate
Range("A1").Select
ChDir "C:\Daten\Archiv"
ActiveWorkbook.SaveAs Filename:="C:\Daten\Archiv\3026W1_6_" & NR & ".PRN", _
FileFormat:=xlExcel5, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
'löscht ursprüngliche Datei mittels Batch-Datei
Ergebnis = Shell("C:\Daten\Ab_3026W1_6.bat", 1)
auf meinen Rechner läuft das ohne Fehlermeldung, auf dem Messrechner auch Excel2000 aber unter WIN95 wegen des Messoftware schließt sich die Batchdatei nicht. In der Batchdatei stehen nur zwei Zeilen:
del C:\Daten\3026W1_6.PRN
exit
Hat jemand eine Idee wie ich das Problem eleganter lösen kann, bzw die Batchdatei sicher geschlossen wird?
Für Eure Hilfe schon jetzt herzlichen Dank
Gruß
Johannes

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei mit VBA löschen ?

03.05.2006 10:40:54

IngGi
Danke - klappt nun fehlerfrei

03.05.2006 10:53:45

Johannes

AW: Datei mit VBA löschen ?

03.05.2006 10:40:54

IngGi

Hallo Johannes,
Dateien lassen sich auch mit VBA löschen:

Kill C:\Daten\3026W1_6.PRN

Gruß Ingolf

Danke - klappt nun fehlerfrei

03.05.2006 10:53:45

Johannes

Hallo Ingolf
habe nur ein paar Anführungszeichen noch hinzugefügt:
Kill "C:\Daten\3026W1_6.PRN"
Danke für die Hilfe,
Gruß
Johannes

Infobox / Tutorial

Dateien mit VBA löschen: Schritt-für-Schritt-Anleitung

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine Datei mit VBA zu löschen, kannst du den Kill-Befehl verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung, wie du eine Datei mit Excel VBA löschen kannst:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

Füge den folgenden Code in das Modul ein:

Sub DateiLöschen()
   On Error Resume Next ' Um Fehler zu ignorieren, wenn die Datei nicht vorhanden ist
   Kill "C:\Daten\3026W1_6.PRN"
   On Error GoTo 0 ' Fehlerbehandlung wieder aktivieren
End Sub

Ändere den Dateipfad zu der Datei, die du löschen möchtest.
Führe das Makro aus, um die Datei zu löschen.

Mit dieser Methode kannst du sicherstellen, dass die Datei gelöscht wird, wenn sie vorhanden ist.

Häufige Fehler und Lösungen

Fehler: "Datei nicht gefunden"
- Lösung: Stelle sicher, dass der angegebene Dateipfad korrekt ist und die Datei existiert. Du kannst die Fehlerbehandlung im Code verwenden, um diesen Fehler zu ignorieren.
Fehler: Zugriffsverletzung
- Lösung: Überprüfe, ob die Datei von einem anderen Programm verwendet wird. Schließe alle Anwendungen, die auf die Datei zugreifen könnten.

Alternative Methoden

Wenn du die Datei nicht mit VBA löschen möchtest, kannst du folgende alternative Methoden verwenden:

Batch-Datei: Erstelle eine .bat-Datei, die die Datei löscht. Beispiel:
```
del C:\Daten\3026W1_6.PRN
exit
```
CMD: Du kannst den Befehl cmd del verwenden, um Dateien ohne Bestätigung zu löschen:
```
del /q C:\Daten\3026W1_6.PRN
```

Diese Methoden bieten eine Möglichkeit, Dateien zu löschen, ohne VBA zu verwenden.

Praktische Beispiele

Hier sind einige praktische Beispiele für den Einsatz von Kill in VBA:

Einzelne Datei löschen:

Sub EinzelneDateiLöschen()
   Kill "C:\Daten\Beispiel.txt"
End Sub

Mehrere Dateien löschen:

Sub MehrereDateienLöschen()
   Dim Datei As Variant
   For Each Datei In Array("C:\Daten\Datei1.txt", "C:\Daten\Datei2.txt")
       On Error Resume Next
       Kill Datei
       On Error GoTo 0
   Next Datei
End Sub

Datei löschen, wenn vorhanden:

Sub DateiLöschenWennVorhanden()
   Dim DateiPfad As String
   DateiPfad = "C:\Daten\3026W1_6.PRN"
   If Dir(DateiPfad) <> "" Then
       Kill DateiPfad
   End If
End Sub

Tipps für Profis

Verwende die On Error-Anweisung, um Fehler zu handhaben, insbesondere wenn du mit Dateien arbeitest, die möglicherweise nicht existieren.
Teste dein Makro in einer sicheren Umgebung, um unbeabsichtigte Datenverluste zu vermeiden.
Stelle sicher, dass du die richtigen Berechtigungen hast, um die Datei zu löschen.

FAQ: Häufige Fragen

1. Kann ich mit VBA auch Ordner löschen? Ja, du kannst Ordner mit dem RMDIR-Befehl löschen, aber der Ordner muss leer sein. Wenn der Ordner nicht leer ist, kannst du Scripting.FileSystemObject verwenden.

2. Was passiert, wenn ich eine Datei lösche, die ich nicht mehr brauche? Die Datei wird dauerhaft gelöscht. Stelle sicher, dass du ein Backup hast, falls du die Datei später benötigst.

3. Wie kann ich überprüfen, ob eine Datei existiert, bevor ich sie lösche? Du kannst die Dir-Funktion verwenden, um zu prüfen, ob die Datei existiert, bevor du den Kill-Befehl ausführst.

Beliebteste Forumthreads (12 Monate)