ファイルの存在確認

目次 †

概要 †

ファイルの存在を確認するには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