◆ファイルを削除する

  ファイルを削除するには、 Kill ステートメントを使用します。

  Kill Pathname

  Pathname にはワイルドカードが使えます。

    ワイルドカードとは、ファイル名を指定すると時に、「* (アスタリスク)」や
    「？ (クエスチョン)」を使用する事で、まとめてファイルを指定することが出来ます。
    「*」は任意の文字列を、「?」は任意の１文字を意味します。

    VBA*     :  VBAで始まるファイルのすべて
    VBA???   :  VBAで始まって、以降の文字が３文字のファイル
  
  フォルダ内のすべてのファイルを削除する例です。

Sub KillFile()

    Dim FileName_InFolder As String
    
    'フォルダのパスを取得
    FileName_InFolder = FolderPath
    
    'すべてのファイル指定
    FileName_InFolder = FileName_InFolder & "\*.*"
    
    'ファイルの削除
    Kill FileName_InFolder

End Sub

Function FolderPath() As String
    
    Dim Shell As Object
    
    Set Shell = CreateObject("Shell.Application") _
      .BrowseForFolder(0, "フォルダを選択してください", 0, "デスクトップ") 
    
    If Shell Is Nothing Then
        FolderPath = ""
    Else
        FolderPath = Shell.Items.Item.Path
    End If

End Function