FileExists

指定したファイルが存在するかどうかを確認します。

指定したフォルダが存在するか調べるにはFolderExistsを使用します。

構文
Boolean = FileSystemObject.FileExists( filespec )
引数
filespec
ファイル名を指定
戻値
True
指定したファイルが存在する
False
指定したファイルが存在しない

プログラム実行例

指定したファイルを開く

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDesktop)

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM path = "D:\Desktop\sample.txt"
IF FSO.FileExists(path) = FALSE THEN EXIT

DIM FolderItem = Folder.ParseName(path)
FolderItem.InvokeVerb()
  1. script.function.CREATEOLEOBJ(3,6)
  2. com.Shell.NameSpace(4)
  3. com.FSO.FileExists(8)
  4. com.Shell.Folder.ParseName(10)
  5. com.Shell.FolderItem.InvokeVerb(11)

指定したファイルが存在するか

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM path = INPUT("ファイルパスを入力してください。")

IFB FSO.FileExists(path) = TRUE THEN
	MSGBOX("「" + path + "」は存在します。")
ELSE
	MSGBOX("「" + path + "」は存在しませn。")
ENDIF
  1. script.function.CREATEOLEOBJ(1)
  2. script.function.INPUT(2)
  3. script.function.MSGBOX(Γ,7])
  4. com.fso.FileExists(4)