Löschen aller Excel-Dateien in einem Ordner durch VB

Question

Ich bin neu in VB und möchte Ihre Unterstützung beim Löschen aller Excel-Dateien aus einem bestimmten Ordner.

Below, wenn mein Code, der nicht funktioniert, wie ich wollte:

Dim fs 
Set fs = CreateObject("Scripting.FileSystemObject") 

If fs.FileExists("C:\Users\Desktop\Test\Daily_Reports\*.xlsx") Then 
    fs.Deletefile "C:\Users\Desktop\Test\Daily_Reports\*.xlsx", true 
Else 
    MsgBox "No" 
End If 

Answer 1

Soweit ich weiß, fs.FileExists prüft nur, ob eine einzelne Datei vorhanden ist, so dass Sie keine Platzhalter verwenden können.

Sie können die native Funktion VBA/VB6 Dir verwenden, um die gleiche Sache zu erreichen, und die native Funktion Kill anstelle von DeleteFile. (DeleteFilewird mit Wildcards fertig zu werden, aber Kill vermeidet, um das Scripting-Objekt.)

If Dir("C:\Users\Desktop\Test\Daily_Reports\*.xlsx") <> "" Then 
    Kill "C:\Users\Desktop\Test\Daily_Reports\*.xlsx" 
Else 
    MsgBox "No" 
End If 

Wenn Sie VBScript verwenden, können Sie nur verwenden

Dim fs 
Set fs = CreateObject("Scripting.FileSystemObject") 
For Each File In fs.GetFolder("C:\Users\Desktop\Test\Daily_Reports").Files 
    If fs.GetExtensionName(File) = "xlsx" Then 
     fs.DeleteFile File 
    End If 
Next