文件上載後又怎麼刪除它

[kpingcsdn]

我可以用Lyfupload等東西上載文件到一個目錄里
那我怎麼樣把該文件刪除呢?
謝謝

[angelheavens]

用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