梦想飞翔 - 2006

asp递归创建文件夹

一个项目上需要创建类似/abc/def/x/t/d/x的文件夹,在网上搜索了下“asp递归创建文件夹”，基本上无可用的结果，再搜“php递归创建文件夹”，就出现了一个函数。引用如下：
function recur_mkdirs($path, $mode = 0777) //creates directory tree recursively  {  //$GLOBALS["dirseparator"]  $dirs = explode($GLOBALS["dirseparator"],$path);  $pos = strrpos($path, ".");  if ($pos === false) { // note: three equal signs  // not found, means path ends in a dir not file  $subamount=0;  }  else {  $subamount=1;  }  for ($c=0;$c < count($dirs) - $subamount; $c++) {  $thispath="";  for ($cc=0; $cc <= $c; $cc++) {  $thispath.=$dirs[$cc].$GLOBALS["dirseparator"];  }  if (!file_exists($thispath)) {  //print "$thispath<br>";  mkdir($thispath,$mode);  }  } }

于是“翻译”了个asp的：
'创建文件夹,输入格式/abc/def/，注：最后面要带上/ Function createfolder(sdir)   dirs=Split(sdir,"/")   If InStr(sdir,".") Then     subamount=1   Else     subamount=0   End If   For i=0 To (UBound(dirs)-1)     thispath=""     For j=0 To i       thispath = thispath & dirs(j) & "/"     Next     Set fs=Server.CreateObject("Scripting.FileSystemObject")     If (not fs.FolderExists(server.mappath(thispath))) Then fs.CreateFolder(server.mappath(thispath))     set fs=nothing   next End Function

还不是很健全，不过临时够用。