用fso:
dim MemberFolderName
dim fso,objfolder,objfile
MemberFolderName=server.MapPath(PhotoPath)
set fso=server.createobject("scripting.filesystemobject")
if fso.FolderExists(MemberFolderName)=false then
set fso=nothing
else
set objfolder=fso.GetFolder(MemberFolderName)
for each objfile in objfolder.files
fso.DeleteFile objfile,true
next
set objfolder=nothing
set fso=nothing
end if