今日VBAに保存されていないフォルダ内のすべてのファイルを削除します

Question

フォルダ内のすべてのファイルを削除しようとしています。

フォルダにのみ.csvと.txtファイルタイプを持つことになりますので、私はちょうどそれらの種類を削除するには、自分のコードを作りました。任意のファイルタイプを削除する方法はありますか？

これは私が今持っているコードです：

Sub delete() 

Dim MyFolder As String 
Dim MyFileTxt As String 
Dim MyFileCSV As String 

MyFolder = "C:\Users\Desktop\pdf_converter_test" 
MyFileTxt = Dir(MyFolder & "\*.txt") 
MyFileCSV = Dir(MyFolder & "\*.csv") 

Do While FileDateTime(MyFolder & MyFileTxt) <> Date 
    On Error Resume Next 
     If FileDateTime(MyFolder & MyFileTxt) <> Date Then 
      Kill MyFolder & MyFileTxt 
      MyFileTxt = Dir 
     End If 
Loop 

Do While FileDateTime(MyFolder & MyCSV) <> Date 
    On Error Resume Next 
     If FileDateTime(MyFolder & MyFileCSV) <> Date Then 
      Kill MyFolder & MyFileCSV 
      MyFileCSV = Dir 
     End If 
    Loop 

End Sub 

ループは永遠に行くように見えるので、条件しDOに問題があります。しかし、それはまた私がそれを望むファイルを削除しません。

ご協力いただければ幸いです。ありがとうございました。

Answer 1

あなたが望むものを達成する最も簡単な方法です。これにより、今日保存されていないファイルタイプ、つまり変更日が今日と異なるファイルタイプが削除されます。

Sub Sample() 
    Dim sPath As String 
    Dim objFSO As Object, objFolder As Object  
    Dim objfile As Object 


    '~~> Change as needed 
    sPath = "C:\Users\Siddharth Rout\Desktop\Test\" 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFolder(sPath) 

    For Each objFile In objFolder.Files 
     If Format(objFile.DateLastModified, "DD-MM-YYYY") <> Format(Date, "DD-MM-YYYY") Then 
      Kill objFile 
     End If 
    Next objFile 
End Sub