【Excel-VBA】フォルダ内のファイル一括削除

Sub フォルダ内のファイルの削除A()
Dim FName As String
Const Path As String = “C:\2020年度\”
FileName = Dir(Path & “*.xlsx”)
If FileName = “” Then
MsgBox “ファイルがありません。”
Else
Kill “C:\2020年度\*.xlsx”
MsgBox “ファイルを削除しました。”
End If
End Sub