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