フォルダ作成処理
こんにちは、カズマです。
備忘録です。
vbaで指定された階層にフォルダが存在するか確認する処理です。
<br />
'-----------------------------------------------<br />
' 機能 : フォルダの存在チェック<br />
' 引き数 : astrFolder － フォルダパス<br />
' 返り値 : Boolean<br />
' 機能説明 : フォルダの存在チェック<br />
'-----------------------------------------------<br />
Public Function FolderExists(ByVal astrFolder As String) As Boolean</p>
<p> Dim fFso As Object</p>
<p> FolderExists = False</p>
<p> Set fFso = CreateObject("Scripting.FileSystemObject")<br />
FolderExists = fFso.FolderExists(astrFolder)</p>
<p> Set fFso = Nothing</p>
<p>End Function<br />
最近のコメント