- 追加された行はこの色です。
- 削除された行はこの色です。
**目次 [#ec0d08ea]
**目次 [#o68954a9]
#Contents
**ファイル名に日付が入った場合の存在確認 [#hcaa91f9]
検索結果を組み合わせて作成
**概要 [#m0bb18fe]
ファイルの存在を確認するにはFileExists関数とDir関数を使用する方法がある。~
Dir関数は本来はディレクトリ内のリストを取得する関数であるため、用法的には適さないので割愛する。
***コード [#z0be3c1c]
' ファイルシステムオブジェクトを取得する。
**FileExists関数 [#f4eaab5f]
FileExists関数で存在有無を確認した場合、存在する場合は真、しない場合は偽が返される。
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' ディレクトリを指定
chkDir = "C:\test\"
' エラーメッセージ
errMsg = "エラーが発生しています！"
' ファイル名を指定
strDate = year(now()) & Right(00 & month(now()), 2) & Right(00 & day(now()), 2)
errLog = chkDir & strDate & "_error.log"
' ファイルの存在を確認する
If fso.FileExists( errLog) Then
errNow = Now()
WScript.Echo errMsg,"(",errNow,")"
If fso.FileExists( ファイル名 ) Then
WScript.Echo "ファイルが存在します"
End If
' オブジェクトの開放
Set fso = Nothing
**ワイルドカードを使用した存在確認 [#d446bb63]
FileSystemObjectのCopyFile()、MoveFile()、DeleteFile()ではワイルドカードが使えるのに、FileExists()では使えません。~
下記サイトの偉い人が書いた関数を使用してこの問題を克服したスクリプト。
**ワイルドカードを含むファイル名 [#y36fb711]
FileExists関数はワイルドカードに対応していません。~
以下の関数を定義することでワイルドカードを使用したファイル名の検知ができます。
http://scripting.cocolog-nifty.com/blog/2008/02/fileexists_3b40.html
***コード [#a4ea15d1]
' ファイルシステムオブジェクトを取得する。
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
strDate = year(now()) & Right(00 & month(now()), 2) & Right(00 & day(now()), 2) & Right(00 & Hour(now()), 2) & Right(00 & Minute(now()), 2)
' ディレクトリを指定
chkDir = "C:\test\"
' エラーメッセージ
errMsg = "エラーが発生しています！"
' ファイル名を指定
errLog = chkDir & strDate
' ファイルの存在を確認する
If FileExists( errLog & "*" ) Then
errNow = Now()
WScript.Echo errMsg,"(",errNow,")"
End If
' オブジェクトの開放
Set fso = Nothing
-関数
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
