指定したフォルダ内の全ファイルを削除

Sub Prc指定フォルダ内の全ファイル削除()
    
    Dim strFolderPath As String          ' 削除対象のフォルダパス
    Dim objFSO As FileSystemObject       ' ファイルシステムオブジェクト
    Dim objFolder As Folder              ' フォルダオブジェクト
    Dim objFile As File                  ' ファイルオブジェクト
    
    ' 削除対象のフォルダパスを設定
    strFolderPath = CurrentProject.Path & "\テストフォルダA"
    
    ' FileSystemObjectのインスタンス作成
    Set objFSO = New FileSystemObject
    
    ' フォルダオブジェクトを取得
    Set objFolder = objFSO.GetFolder(strFolderPath)
    
    ' フォルダ内の各ファイルを削除
    For Each objFile In objFolder.Files
        objFile.Delete True
    Next objFile
    
    ' オブジェクトを解放
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

※注意点
・このコードはファイルを永久に削除します。実行前に適宜バックアップを取ってください。
・フォルダパス（strFolderPath）は適宜変更してください。
※記述上のポイント
・Microsoft Scripting Runtime の参照設定を追加する必要があります。