このエントリーをはてなブックマークに追加


ファイルの存在チェックを行う・FileExistsメソッド

FileSystemObjectのFileExistsメソッドを使用することにより、ファイルの存在チェックをすることができます。
以下にFileExistsメソッドを使用したVBScriptサンプルコードおよびサンプルコードの実行結果を記します。



スポンサーリンク


関連記事

ファイルの存在チェックを行うVBScriptサンプルコードと実行結果

以下に、ファイルの存在チェックを行うVBScriptサンプルコードと実行結果を記します。

VBScriptサンプルコード

Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
' Create Text File
Set tso = fso.OpenTextFile("foo.txt", ForWriting, true)
tso.Close
Set tso = Nothing

If fso.FileExists("foo.txt") Then
  WScript.Echo "foo.txt file exists."
Else
  WScript.Echo "foo.txt file not found."
End If

If fso.FileExists("bar.txt") Then
 WScript.Echo "bar.txt file exists."
Else
  WScript.Echo "bar.txt file not found."
End If

Set fso = Nothing

上記のVBScriptサンプルコードは以下のように動作します。

  1. foo.txtファイルを作成しクローズ
  2. FileSystemObjectのFileExistsメソッドを使いfoo.txtのファイル存在確認を行う
  3. 同じくFileSystemObjectのFileExistsメソッドを使い、bar.txtのファイル存在確認を行う

VBScriptサンプルコード実行結果

C:\wsh>cscript /nologo fileexists.vbs
foo.txt file exists.
bar.txt file not found.

C:\wsh>dir foo.txt
 ドライブ C のボリューム ラベルは Windows です
 ボリューム シリアル番号は 1234-5678 です

 C:\wsh のディレクトリ

2012/07/21  00:53                 0 foo.txt
               1 個のファイル                   0 バイト
               0 個のディレクトリ  114,663,075,840 バイトの空き領域

C:\wsh>dir bar.txt
 ドライブ C のボリューム ラベルは Windows です
 ボリューム シリアル番号は 1234-5678 です

 C:\wsh のディレクトリ

ファイルが見つかりません


スポンサーリンク


添付ファイル: filefileexists.vbs 246件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-20 (金) 22:50:35