＋设为首页 ＋添加到收藏夹
就是用无组件上传附件程序上传的附件，保存在了服务器的根目录下，要怎样用FSO来删除呢？
1. 权限问题
2. 找到文件
3. 删除
创建一个FileSystemObject的事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
‘创建一个要进行操作的文件
Set MyFile=MyFileObject.CreateTextFile(“c:\test.txt”)
MyFile.WriteLine(“Hello”)
MyFile.Close
‘复制文件操作
MyFileObject.CopyFile “c:\test.txt” “c:\test2.txt”
‘移动文件操作
MyFileObject.MoveFile “c:\test.txt” “c:\test3.txt”
‘删除这些文件
MyFileObject.DeleteFile “c:\test.txt”
MyFileObject.DeleteFile “c:\test3.txt”
%>
<%
folderspec="c:\upload"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
循环列出所有文件名，与数据库中保存的数据做比较
For Each fd in fc
sql="select id from tablename where filenum="&fd.name&""
rs.open sql,cn,1,1
if rs.eof then
fso.DeleteFile("c:\upload\"&fd.name)
end if
rs.close
next
%>
