
’--------------------------------’自动创建指定的多级文件夹’strPath为绝对路径FunctionAutoCreateFolder(strPath)’AsBooleanOnErrorResumeNextDimastrPath,ulngPath,i,strTmpPathDimobjFSOIfInStr(strPath,"\")<=0OrInStr(strPath,":")<=0ThenAutoCreateFolder=FalseExitFunctionEndIfSetobjFSO=Server.CreateObject("Scripting.FileSystemObject")IfobjFSO...