ファイルの存在を調べる【Dir関数】
今回はファイルが存在するかどうかを判定することができる【Dir関数】について使い方を解説していきます。
Dir関数は引数に指定したファイルが存在するかを判定して存在するときはそのファイル名を返し、存在しないときは【””】を返します。
書式
Dir関数の書式はこのようになります。
1 | Dir(フルパスでのファイル名) |
フルパスでのファイル名というのは下記のサンプルコードのようなものになります。
1 | Dir("C:\Users\ユーザー名\Desktop\Book1.xlsx") |
これはデスクトップにBook1.xlsxをDir関数で指定するコードです。
ドライブ名・フォルダ名を指定しなかった場合はカレントフォルダ(ファイルがあるフォルダと同じフォルダ)とみなされます。
では実際に使用してみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub Sample() Dim Filename As String Filename = Dir("C:\Users\ユーザー名\Desktop\Book1.xlsx") If Filename = "" Then MsgBox "ファイル存在しません" Else MsgBox "ファイルは存在します" End If End Sub |
上記のコードは変数にDir関数を格納し、存在しなかった場合に返される【””】が返されたら【存在しません】を返し、それ以外は【存在します】を返すコードです。
私のデスクトップにはBook1.xlsxが存在していますので存在しますが返されます。
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
国本温子,緑川吉行,できるシリーズ編集部 インプレス 2016-06-17
コメントを残す