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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ファイルのタイムスタンプを取得（FileDateTime 関数）

ファイルのタイムスタンプを取得ファイルのタイムスタンプを取得するには、File …

: ファイルサイズを取得（FileLen 関数）

ファイルサイズを取得ファイルのサイズ（バイト数）を取得するには、FileLen …

: Excel を終了する（Quit メソッド）

Excel を終了する（Quit メソッド） Quit メソッドを実行すると、E …

: テキストファイル：データを読み込む（Input # ステートメント）

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

: テキストファイル：データを読み込む（Line Input # ステートメント）

Line Input # ステートメント Open ステートメントをシーケンシャ …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

: Excel の組み込みダイアログボックス（Dialog, Dialogs）

Excel の組み込みダイアログボックスを表示 Dialog オブジェクトを使 …

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

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

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

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

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