ファイルの存在確認
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
**目次 [#o68954a9]
#Contents
**概要 [#m0bb18fe]
ファイルの存在を確認するにはFileExists関数とDir関数を使用...
Dir関数は本来はディレクトリ内のリストを取得する関数である...
**FileExists関数 [#f4eaab5f]
FileExists関数で存在有無を確認した場合、存在する場合は真...
Set fso = WScript.CreateObject("Scripting.FileSystemObje...
If fso.FileExists( ファイル名 ) Then
WScript.Echo "ファイルが存在します"
End If
**ワイルドカードを含むファイル名 [#y36fb711]
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
終了行:
**目次 [#o68954a9]
#Contents
**概要 [#m0bb18fe]
ファイルの存在を確認するにはFileExists関数とDir関数を使用...
Dir関数は本来はディレクトリ内のリストを取得する関数である...
**FileExists関数 [#f4eaab5f]
FileExists関数で存在有無を確認した場合、存在する場合は真...
Set fso = WScript.CreateObject("Scripting.FileSystemObje...
If fso.FileExists( ファイル名 ) Then
WScript.Echo "ファイルが存在します"
End If
**ワイルドカードを含むファイル名 [#y36fb711]
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
ページ名: