核心代码
CreateFolders "d:\jb51test\1\2\3\4\5" Function CreateFolders(path)Set fso = CreateObject("scripting.filesystemobject")CreateFolderEx fso,pathset fso = NothingEnd FunctionFunction CreateFolderEx(fso,path)If fso.FolderExists(path) Then Exit FunctionEnd IfIf Not fso.FolderExists(fso.GetParentFolderName(path)) ThenCreateFolderEx fso,fso.GetParentFolderName(path)End Iffso.CreateFolder(path)End Function
上一篇:如何备份和还原MySQL数据