删除指定目录下所有文件包括子目录，保留文件目录

51Testing软件测试网;QnM5@FMGP,@
Dim fso,dc,file,files,folder,subfolders,subfolder,folders,resp
e.x1EK3Nzu2g0set fso=createobject("scripting.filesystemobject")51Testing软件测试网9Z7CV8omf*M9tdD
dc="F:\test"

51Testing软件测试网!\?d z1\8gH;LI
resp=msgbox("确定删除"&dc&"目录的所有文件嘛？",vbYesNoCancel)
}
M
T!S#x5^+B?V0wscript.echo resp51Testing软件测试网l tC/?-M z/f&Q
k
IF resp ="6"  Then51Testing软件测试网&L/` TI4@ X
 set folder=fso.getfolder(dc)
F*O/N.w)@i9P0 set files=folder.files
6e9H,L#W(V{$~c a`!`0'搜索其目录下的文件51Testing软件测试网2U}LT6X*S
 for each file in files51Testing软件测试网td|0Zd5Lf
  fso.deleteFile file51Testing软件测试网1]%_ si'rw
  'wscript.echo file51Testing软件测试网i#d2f(J$tH\|
 next
kP%Y1iV\0 'wscript.echo "========"

 set subfolders=folder.subfolders

 for each subfolder in subfolders51Testing软件测试网 d9B+f4rW_
  set files=subfolder.files51Testing软件测试网Q{ ]I1j&p
'搜索其目录下的文件51Testing软件测试网 Y\/Lw&YERsVmZ-Aj"x
  for each file in files
9Jf2SKV0gKe"I0   'wscript.echo file

Dv*O9Q|}5?nd;q0   fso.deleteFile file51Testing软件测试网 rBB6m&e+](n
  next
!H3K&UdM(w6](^j%[U0 '===================
6O)dJt;q0  call delFile(subfolder)51Testing软件测试网!a$P8e6QBC/P
 'wscript.echo subfolder
rD V d0p6V O Ax0 next
F4?a1y+OH0End If

Function delFile(folder)51Testing软件测试网(p:Aq,M$_h$q2H
 wscript.echo folder51Testing软件测试网M_d4\,`L `a
 'dc=dc&"\"&folder
SQA:AFQ9r"m0 set subfolders=folder.subfolders51Testing软件测试网Wn/k%WU`P:X
 for each subfolder in subfolders
&^6k7P7z)b4zQ5Hz0  set files=subfolder.files

  for each file in files51Testing软件测试网oX)i!K$U;\|/Fj,q}
   'wscript.echo file51Testing软件测试网 ~:p
i]w u v+|6d%T$R
      fso.deleteFile file51Testing软件测试网uEW*ul}
   'wscript.echo "1"51Testing软件测试网vK5hs8LX
  next51Testing软件测试网g yP4d:@+T
 '===================
(a0{?3\4U0G0 
Q qp2\b%R5Bd0 'wscript.echo subfolder
;W"}t| jE5n q3I0 next

End Function