关于文件操作的问题(fso)

[klmycity]

我有表，内容如下
id filenum
1 342342332.gif
2 332234234.gif
3 565656558.gif
....

其中filenum对应的文件存放在c:\upload中

请问我想实现如下功能：
在表中查询每一行记录，如果c:\upload存在对应的filenum名称，则删除.
请问如何用fso来实现。
顺便问一下，判断一个文件存在与否的fso语句如何写呢？

[quiet]

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filepath)) Then
msgbox "exit"
End If

[quiet]

删除：
set fso = creaobject("scripting.filesystemobject")
f = fso.GetFile("c:\\testfile.txt")
f.Delete

[par]

-----
建数据源，链接好数据
-----

set objtools=server.createobject("mswc.tools")
set myfileobject=server.createobject("scripting.filesystemobject")
do while not rs.eof
if objtools.fileexists(rs("filenum"))=-1 then
set myfilepath=myfileobject.getfile(rs("filenum"))
myfilepath.delete
myfilepath.close
end if
rs.MoveNext()
loop

[quiet]

or
set fso=creaobject("scripting.filesystemobject")
fso.DeleteFile filepath

[klmycity]

对不起写错了：

我有表，内容如下
id filenum
1 342342332.gif
2 332234234.gif
3 565656558.gif
....

其中filenum对应的文件存放在c:\upload中

请问我想实现如下功能：
在表中查询每一行记录，如果c:\upload存在对应的filenum名称，则不删除，只删除那些库中没有记录的文件。
请问如何用fso来实现。
顺便问一下，判断一个文件存在与否的fso语句如何写呢？

[Brookes]

楼上的兄弟们这么热心了，还不够用？

[klmycity]

不是，是这样的：
在表中查询每一行记录，如果c:\upload存在对应的filenum名称，则不删除，只删除那些库中没有记录的文件。

[par]

晕,明天上班再帮你搞啦。

[hchxxzx]

<%
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

%>