Script Paradigm

フォルダがあるかチェック

フォルダが存在するかどうかをチェックします。

Option Explicit
MsgBox fnFolderExists("abc")
Function fnFolderExists(strFolderPath)
    Dim fsoTemp
    fnFolderExists = False
    
    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    If fsoTemp.FolderExists(strFolderPath) Then
        fnFolderExists = True
    End If
    
    Set fsoTemp = Nothing
End Function
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.000828027725219727]