VBでフォルダ内のすべてのExcelファイルを削除する

Question

私はVBで初めてです。すべてのExcelファイルを特定のフォルダから削除したいと考えています。

私が望んでいたように動作していない私のコードは次の場合に下：

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

私の知る限りではfs.FileExistsは、単一のファイルが存在する場合は、ワイルドカードを使用することはできませんので、どうかをチェックします。

同じことを実現するには、VBA/VB6ネイティブ関数Dirを使用し、DeleteFileの代わりにネイティブ関数Killを使用できます。 （DeleteFileがワイルドカードにも対応しますが、Killは、スクリプトオブジェクトを必要と回避できます。）

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

あなたはVBScriptを使用している場合は、あなただけのこれはVBA（またはVB6）ではないVBで

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