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

関連記事

: テキストファイル：出力する 1 行の幅を設定（Width # ステートメント）

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

: 「ファイル」ダイアログボックスを表示・設定（FileDialog オブジェクト）

FileDialog オブジェクト FileDialog オブジェクトのメソッ …

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

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

: 開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）

Seek 関数 Open ステートメントで開いたファイル内の現在の読み取り位置 …

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

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

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

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

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

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

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

: フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得するフルパスからファイル名を取得するには、Di …

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

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

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