Private Sub Command1_Click() Dim f As New FileSystemObject 'ファイルを削除する ' 第2引数をTrueにすることで、読取専用ファイルも削除できる。 f.DeleteFile "c:\test\a2.csv", True Set f = Nothing End Sub