代码如下:<% ‘建立文件夹函数 Function CreateFolder(strFolder)’参数为相对路径 ‘首选判断要建立的文件夹是否已经存在 Dim strTestFolder,objFSO strTestFolder = Server.Mappath(strFolder) Set objFSO = CreateObject(“Scripting.FileSystemObject”) ‘检查文件夹是否存在 If not objFSO.FolderExists(strTestFolder) Then ‘如果不存在则建立文件夹 o
