Löschen einer Datei in VBA

Question

VBA verwenden, wie kann ich:

1. Test, ob eine Datei vorhanden ist, und wenn ja,
2. es löschen?

Answer 1

1.) Überprüfen Sie here. Im Grunde tun:

Function FileExists(ByVal FileToTest As String) As Boolean 
    FileExists = (Dir(FileToTest) <> "") 
End Function 

Ich werde überlasse es Ihnen, die verschiedenen Fehlerbehandlung erforderlich, um herauszufinden, aber diese sind unter den Fehlerbehandlung Dinge, die ich in Erwägung ziehen würde:

• prüfen für einen leeren Zeichenfolge wird übergeben.
• prüfen für eine Zeichenfolge Zeichen illegal in einem Dateinamen/Pfad

2.) Wie enthält eine Datei zu löschen. Sehen Sie sich this. an. Verwenden Sie den Befehl Kill, aber Sie müssen die Möglichkeit einer schreibgeschützten Datei berücksichtigen. Hier ist eine Funktion für Sie:

Sub DeleteFile(ByVal FileToDelete As String) 
    If FileExists(FileToDelete) Then 'See above   
     ' First remove readonly attribute, if set 
     SetAttr FileToDelete, vbNormal   
     ' Then delete the file 
     Kill FileToDelete 
    End If 
End Sub 

Noch einmal, ich werde den Fehler verlassen, um Ihnen die Handhabung und wieder das sind die Dinge, die ich betrachten würde:

• Sollte dies verhalten sich anders für ein Verzeichnis vs . eine Datei? Muss ein Benutzer explizit angeben, dass er ein Verzeichnis löschen möchte?

• Soll der Code das schreibgeschützte Attribut automatisch zurücksetzen oder sollte dem Benutzer eine Art Hinweis gegeben werden, dass das schreibgeschützte Attribut festgelegt ist?

---

EDIT: diese Antwort als Community Wiki-Kennzeichnung, so dass jeder es ändern kann, wenn nötig.

Answer 2

In VB seine normalerweise Dir das Verzeichnis der Datei zu finden. Wenn es nicht leer ist, existiert es und benutzt dann Kill, um die Datei loszuwerden.

test = Dir(Filename) 
If Not test = "" Then 
    Kill (Filename) 
End If 

Answer 3

Folgendes kann verwendet werden, um das Vorhandensein einer Datei zu testen und sie anschließend zu löschen.

Dim aFile As String 
aFile = "c:\file_to_delete.txt" 
If Len(Dir$(aFile)) > 0 Then 
    Kill aFile 
End If 

Answer 4

Sie können einen Verweis auf die Scripting.Runtime-Bibliothek festlegen und dann das FileSystemObject verwenden. Es verfügt über eine DeleteFile-Methode und eine FileExists-Methode.

Siehe den MSDN-Artikel here.

Answer 5

Ich werde wahrscheinlich dafür geflammt, aber was ist der Sinn der Existenz zu testen, wenn Sie es nur löschen werden? Eine meiner größten Sorgen ist eine App, die einen Fehlerdialog mit etwas wie "Datei konnte nicht gelöscht werden, existiert nicht!"

On Error Resume Next 
aFile = "c:\file_to_delete.txt" 
Kill aFile 
On Error Goto 0 
return Len(Dir$(aFile)) > 0 ' Make sure it actually got deleted. 

Wenn die Datei nicht an erster Stelle existiert, Mission erfüllt!

Answer 6

einen Verweis auf die Bibliothek Scripting.Runtime und dann das Filesystem verwenden:

Dim fso as New FileSystemObject, aFile as File 

if (fso.FileExists("PathToFile")) then 
    aFile = fso.GetFile("PathToFile") 
    aFile.Delete 
End if 

Answer 7

Eine alternative Art und Weise Brettski Antwort zu codieren, mit dem ich sonst ganz zustimmen, könnte

With New FileSystemObject 
    If .FileExists(yourFilePath) Then 
     .DeleteFile yourFilepath 
    End If 
End With 

sein

Gleicher Effekt, aber weniger (na ja, überhaupt keine) variable Deklarationen.

Das FileSystemObject ist ein wirklich nützliches Werkzeug und es lohnt sich, mit ihm zu kommunizieren. Abgesehen von allem anderen, für das Schreiben von Textdateien kann es tatsächlich manchmal schneller sein als die Legacy-Alternative, die einige Leute überraschen kann. (Nach meiner Erfahrung zumindest, YMMV).

Answer 8

Hier ein Tipp: Verwenden Sie den Dateinamen erneut oder planen Sie etwas, das sofort gelöscht werden muss?

Nein?

können Sie erhalten VBA den Befehl DEL abzufeuern "C: \ TEMP \ scratchpad.txt"/F von der Eingabeaufforderung asynchron mit VBA.Shell:

Shell "DEL" & chr (34) & strPath & chr (34) & "/ F", vbHide

Beachten Sie die doppelten Anführungszeichen (ASCII-Zeichen 34) um den Dateinamen: ich gehe davon aus, dass Sie einen Netzwerkpfad haben, oder eine lange Dateiname mit Leerzeichen

Wenn es sich um eine große Datei oder um eine langsame Netzwerkverbindung handelt, ist Fire-and-Forget der richtige Weg. Natürlich kann man nie sehen, ob das funktioniert oder nicht; Sie setzen Ihre VBA jedoch sofort fort, und manchmal ist dies besser, als auf das Netzwerk zu warten.