高分在线求解：文件及文件夹批量删除，答对马上给分！！

[7758iloveu]

我想写一段代码，主要实现以下功能：

一个文件夹下面分别根据用户名又建了一个文件夹，现在想删除每个个人文件夹下面的所有文件及文件夹，但个人文件夹要保留，用ASP代码如何实现？谢谢！ 请回答的本机测试好，符合要求的马上给分！

文件夹示意如下：

删除前

总文件夹-------------张三文件夹---文件1，文件2，文件夹1，文件2.。。。。。。。。。。

李四文件夹---A,B,C,D 文件夹，文件夹2.。。。。。。。。。。。。

王五文件夹---文件夹1---文件1，文件2。。。。。。。。。

赵六文件夹--文件夹，。。。。。。。。。。。。

删除后：

文件夹-------------张三文件夹

李四文件夹

王五文件夹

赵六文件夹

[gingerkang]

思路：删除所有的，重建需要的

<%
dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
sub Deletefolder(Path)
    If fs.folderExists(Path) Then
        fs.Deletefolder(Path)
    End If
End sub
sub createfolder(Path)
		if not fs.FolderExists(Path) then
			fs.CreateFolder(Path)
		end if
end sub

dim path,arry,i
arry=split("张三,李四,王五,赵六",",")
path=server.mappath("总文件夹")
call Deletefolder(path)
call createfolder(path)
for i=0 to ubound(arry)
	call createfolder(path &"/" & arry(i) &"文件夹")
next
set fs=nothing
%>

[mmidd]

楼上思路正确

[7758iloveu]

感谢上面的回答！

能不能自动遍历所有文件夹，自动删除所有的3级及以上的文件夹？

只保留第二层文件夹。

[gingerkang]

<%dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
sub Deletefolder(Path)
    If fs.folderExists(Path) Then
        fs.Deletefolder(Path)
    End If
End sub
sub createfolder(Path)
		if not fs.FolderExists(Path) then
			fs.CreateFolder(Path)
		end if
end sub
sub dealfolder(Path,toLevel,cLevel)
	dim folder,n
	for each folder in fs.GetFolder(Path).SubFolders
		n=cLevel+1
		if n=toLevel then 
			fs.Deletefolder(folder)
		else
			call dealfolder(folder,toLevel,n)
		end if
	next
end sub

call dealfolder(server.mappath("总文件夹"),3,0)
'dim path,arry,i
'arry=split("张三,李四,王五,赵六",",")
'path=server.mappath("总文件夹")
'call Deletefolder(path)
'call createfolder(path)
'for i=0 to ubound(arry)
'	call createfolder(path &"/" & arry(i) &"文件夹")
'next
'set fs=nothing%>

[yanniu008]

呵呵 1楼的回答的是蛮简单的而且达到了你提问的目的呵呵

[斯洛文尼亚旅游]

function Del(RootStr)
 dim fso
 set fso=server.CreateObject("Scripting.FileSystemObject")
 dim RootPath:RootPath=server.MapPath(RootStr)
 dim Rootfolder:set Rootfolder=fso.GetFolder(RootPath)'1级
 dim folders:set folders=Rootfolder.subfolders'2级
 dim fds,fls
 for each fd in folders
   set fds=fd.subfolders
   set fls=fd.files
   for each fd3 in fds
     fd3.delete(true)'删除3级以上的文件夹
   next
   for each fl3 in fls
     fl3.delete(true)'删除处于3级的文件
   next
   set fsd=nothing
   set fls=nothing
 next
 set folders=nothing
 set Rootfolder=nothing
 set fso=nothing
end function

Del("总文件夹")

[toury]

<%
	DelAllInFolder server.MapPath("总")
	
'/////////////// 删除函数   /////////////////////////	
Sub DelAllInFolder(ByVal strFolder)'flag 1-保留个人文件夹  0--其他
  On Error Resume Next
  
  s="张三,李四,王五,赵六"
  
  Dim fso,objFolder,TempFolder, SubSubFolders, objFiles,objFile
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  
  Set objFolder = fso.GetFolder(strFolder)
  Set SubSubFolders = objFolder.SubFolders
  Set objFiles = objFolder.Files
  
  '---------删除文件夹
  For Each TempFolder In SubSubFolders
    if instr(s,TempFolder.Name)=0 then
      TempFolder.Delete True
    else
      DelAllInFolder server.MapPath("总/"&TempFolder.Name)
    end if      
  Next
  
  '---------删除根目录下文件
  For Each objFile In objFiles
    objFile.Delete True
  Next
  Set objFolder = nothing
  Set SubSubFolders = nothing
  Set objFiles = nothing
  Set fso = nothing
end sub
%>

测试条件:
总: 总文件夹名--1级
张三/李四...: 个人文件夹名--2级(保留);新建文件夹--2级(不保留)
其他文件若干:(不保留)

新建文件夹: 个人文件夹下所有子文件夹---3级(不保留)
其他文件若干:(不保留)

[wqsys]

根据1楼朋友改的,
遍历总文件夹里的,删一个目录,再建一个目录!

<%
dim fs
dim bojFolder
dim path
path=server.mappath("总文件夹")
Set fs = CreateObject("Scripting.FileSystemObject")
set objFolder=fs.GetFolder(path)
set objSubFolders=objFolder.Subfolders

for each objSubFolder in objsubfolders
  folderpath=path + "\" +objSubFolder.name
  call deletefolder(folderpath)
  call createfolder(folderpath)
next


sub Deletefolder(Path)
    If fs.folderExists(Path) Then
        fs.Deletefolder(Path)
    End If
End sub

sub createfolder(Path)
        if not fs.FolderExists(Path) then
            fs.CreateFolder(Path)
        end if
end sub

set fs=nothing
%>

[7758iloveu]

理上网来 完全符合要求！

同时感谢所有回答问题的朋友！