【VBS】フォルダの存在確認

フォルダの存在

'変数を宣言
Dim FS
Dim ret

'ファイルシステムオブジェクトを生成
Set FS = CreateObject("Scripting.FileSystemObject")

'C:\vbs が存在するかを確認
ret = FS.FolderExists( "C:\vbs" )

'フォルダが存在する場合 True、存在しない場合 False が表示される。
MsgBox ret

http://vbscript.infopos.net/p/000021.html

<使う場合＞

'変数を宣言
Dim FS
Dim ret

'ファイルシステムオブジェクトを生成
Set FS = CreateObject("Scripting.FileSystemObject")

'C:\vbs が存在するか判断
If   FS.FolderExists( "C:\vbs" )=True then

   '存在する場合の処理をココに書く
   Msgbox "存在します"

else
  
   '存在しない場合の処理をココに書く
   Msgbox "存在します"

end if

 Msgbox  FOLDERCHECH("C:\test\test")



Function FOLDERCHECK(FolderPath)
	Dim FS
	Dim ret

	'ファイルシステムオブジェクトを生成
	Set FS = CreateObject("Scripting.FileSystemObject")

	FOLDERCHECK=FS.FolderExists( FolderPath )'存在するかどうか判定し、呼び出したとこに戻り値を…

End Function

結構、Function使うんだよなぁ。
何回も同じプログラム遣うことあるし。便利だし。