EXCEL-VBA_フォルダでファイルを複数選んで削除

Sub GetFilenameKill()

'複数のファイルを選択する

Dim vFileName As Variant
Dim vGetFileName As Variant

'ファイルを開くダイアログを開きます
vFileName = _
Application.GetOpenFilename( _
, Title:="選択" _
, MultiSelect:=True _
)

Dim kilstr, kilcount
kilstr = ""
'ファイルが選択されているとき(vFileNameが配列型)は
'選択した全てのファイルをKILLで削除します
If IsArray(vFileName) Then
kilcount = 0
For Each vGetFileName In vFileName
Kill vGetFileName
kilstr = kilstr & vbCrLf & vGetFileName
kilcount = kilcount + 1
Next
MsgBox kilstr & vbCrLf & kilcount & " 個削除しました"
End If

End Sub

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック