Public Function IsDir(s) IsDir = CreateObject("Scripting.FileSystemObject").FolderExists(s) End Function