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