查人人中国名人网猿动力健身俱乐部:用fso获得目录的所有文件列表，然后删除的时候根据文件名搜索数据库，不存在就del
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/25 21:29:17
用fso获得目录的所有文件列表，然后删除的时候根据文件名搜索数据库，不存在就del
有没有好心人给出代码和说明！感谢呀！
有没有好心人给出代码和说明！感谢呀！
sub view_file（bkfolder）
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(bkfolder) Then
Set objFolder = fso.GetFolder(bkfolder)
For Each objFile in objFolder.files
response.write objFile.name
Next
Set objFolder = Nothing
end if
Set fso = Nothing
end sub
显示目录中的文件列表
sub del_file(Dbpath)
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
fso.deletefile dbpath,true
response.write "操作成功<br>"
Else
response.write "找不到文件"
End if
end sub
删除文件
具体实现你要的功能自己组织