ファイルの存在確認 - Knowlege Database

目次†

目次
概要
FileExists関数
ワイルドカードを含むファイル名

概要†

ファイルの存在を確認するにはFileExists関数とDir関数を使用する方法がある。
Dir関数は本来はディレクトリ内のリストを取得する関数であるため、用法的には適さないので割愛する。

FileExists関数†

FileExists関数で存在有無を確認した場合、存在する場合は真、しない場合は偽が返される。

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If fso.FileExists( ファイル名 ) Then
    WScript.Echo "ファイルが存在します"
End If

↑

ワイルドカードを含むファイル名†

FileExists関数はワイルドカードに対応していません。
以下の関数を定義することでワイルドカードを使用したファイル名の検知ができます。

関数

Function FileExists(Spec)
 Dim fso
 Dim ParentFolderName
 Set fso=CreateObject("Scripting.FileSystemObject")
 ParentFolderName=fso.GetParentFolderName(Spec)
 If ParentFolderName="" Then ParentFolderName="."
 On Error Resume Next
 fso.CopyFile Spec,ParentFolderName
 'fso.MoveFile Spec,ParentFolderName
 FileExists=Err.Number<>53
End Function

使い方

If FileExists( "ファイル名" & "*" ) Then
    WScript.Echo "ファイルが存在します"
End If