核心代碼
CreateFolders "d:/jb51test/1/2/3/4/5" Function CreateFolders(path) Set fso = CreateObject("scripting.filesystemobject") CreateFolderEx fso,path set fso = NothingEnd FunctionFunction CreateFolderEx(fso,path) If fso.FolderExists(path) Then Exit Function End If If Not fso.FolderExists(fso.GetParentFolderName(path)) Then CreateFolderEx fso,fso.GetParentFolderName(path) End If fso.CreateFolder(path)End Function經過測試運行沒問題
文中的兩個函數鏈接CreateFolder 方法與GetParentFolderName 方法。
新聞熱點
疑難解答
