Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ファイルを削除（Kill ステートメント）

2015/12/21 2016/05/21

ファイルを削除する

ファイルを削除するには、Kill ステートメント を使用します。ファイルはディスク上から削除されるのでゴミ箱から復活させることはできません。

【構文】

Kill pathname

引数・戻り値

pathname ・・・削除するファイルの名前と場所を文字列式で指定します。複数文字のワイルドカード（*）、単一文字のワイルドカード（?）を使用することで、複数のファイルを指定することも可能です。

存在しないファイルに対して、Kill ステートメント を使用するとエラーが発生します。（ファイルの存在を確認する方法については、ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）を参照してください。）

開いているファイルに対して、Kill ステートメント を使用するとエラーが発生します。

ディレクトリまたはフォルダを削除する方法については、ディレクトリまたはフォルダの削除（RmDir ステートメント）を参照してください。

Kill ステートメント使用例

サンプルVBAソース

　
Sub Sample01_Kill()

    'ファイルの存在確認
    If Dir("C:\Documents\tmp\mybook のバックアップ.xlk") <> "" Then

        'ファイルを削除する
        Kill "C:\Documents\tmp\mybook のバックアップ.xlk"
    
    Else
    
        MsgBox "ファイルは存在しません"
        
    End If

End Sub

Sub Sample02_Kill()

    'ファイルを削除　ワイルドカード（？）を使用
    Kill "C:\Documents\tmp\test0?.xlsx"

End Sub

Sub Sample03_Kill()

    'ファイルを削除　ワイルドカード（*）を使用
    Kill "C:\Documents\tmp\*.txt"

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

　

Sub Sample01_Kill()

'ファイルの存在確認

If Dir("C:\Documents\tmp\mybook のバックアップ.xlk") <> "" Then

'ファイルを削除する

Kill "C:\Documents\tmp\mybook のバックアップ.xlk"

Else

MsgBox "ファイルは存在しません"

End If

End Sub

Sub Sample02_Kill()

'ファイルを削除　ワイルドカード（？）を使用

Kill "C:\Documents\tmp\test0?.xlsx"

End Sub

Sub Sample03_Kill()

'ファイルを削除　ワイルドカード（*）を使用

Kill "C:\Documents\tmp\*.txt"

End Sub

　

実行結果

実行前

Sub Sample01_Kill() を実行

Sub Sample02_Kill() を実行

Sub Sample03_Kill() を実行

- Excel・ファイルの操作 Excel・ファイルの操作, Kill ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: FileDialogFilters コレクション・FileDialogFilter オブジェクト

FileDialogFilters コレクション FileDialog オブジェ …

: テキストファイル：データを読み込む（Input 関数・InputB 関数）

Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …

: EOF 関数

EOF 関数 Open ステートメントをランダムアクセスモード（Random） …

: 「ファイルを開く」ダイアログボックス（FindFile メソッド）

FindFile メソッド「ファイルを開く」ダイアログボックスを表示します。G …

: テキストファイル：データを書き込む（Print # ステートメント）

Print # ステートメント Open ステートメントをシーケンシャル出力モ …

: Excelでテキストファイルを開く（OpenText メソッド）

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

: 特殊フォルダを取得（wsh.SpecialFolders）

CreateObject 関数：特殊フォルダを取得（WSH.SpecialFol …

: 「ファイルを開く」ダイアログボックスを表示（GetOpenFilename メソッド）

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

PREV: フォルダ名・ファイル名を変更（Name ステートメント）
NEXT: ディレクトリまたはフォルダの作成（MkDir ステートメント）