フォルダがあるかどうか調べる

広告

広告

解説

フォルダ存在確認関数。フロッピーの挿入確認、出力先の存在確認などにどうぞ。

引数・戻値

第一引数フォルダ名(フルパス指定) as String
戻り値IsFolderExists as Boolean

ソース

Option Compare Database

Public Function IsFolderExists(strFolder As String) As Boolean
  Dim objFso As Object
  Set objFso = CreateObject("Scripting.FileSystemObject")
  IsFolderExists = objFso.FolderExists(strFolder)
End Function

広告

Copyright (C) 2003-2006 七鍵 key@do.ai 初版:2003年07月07日 最終更新:2006年08月08日