asp创建文件夹<br /> dim arrPath,strTmpPath,intRow<br /> strTmpPath = &quot;&quot;<br /> arrPath = Split(sServerDir, &quot;\&quot;)<br /> Dim oFSO<br /> Set oFSO = Server.CreateObject( &quot;Scripting.FileSystemObject&quot; )<br /> for intRow = 0 to Ubound(arrPath)<br /> strTmpPath = strTmpPath &amp; arrPath(intRow) &amp; &quot;\&quot;<br /> if oFSO.folderExists(strTmpPath)=false then<br /> oFSO.CreateFolder(strTmpPath)<br /> end if<br /> next