vb程序 清理文件夹的文件解决思路

vb程序 清理文件夹的文件
我网站目录下有个upload的文件夹，这个文件夹里都是用户上传的文件，我想用vb写一个exe的程序，把没有用的文件都删除，请问如何做？本来我可以写网页代码，但是这个文件夹里的文件有20多万个，用网页代码列这个文件夹的文件打不开，所以才想用vb写exe文件，但是我exe的水平还不够，所以在此求助大家。

我的数据库有表tb1，里面有个字段是up1，我想在用vb打开upload文件夹时，每处理一个文件时，验证一下tb1表中up1是否存在，如果没有就删除这个文件，请问怎么做？

[解决办法]
vb里有createobject"adodb.connection"和fso功能，和做asp网页几乎一样，另外还有dir等命令参数，你上网查询吧。
[解决办法]
作好备份，进行测试，数据部分你自写，我这里只用rs表你的文件记录集：

VB code

Private Sub Command1_Click()    Dim fs, f, f1, fc, fg As Boolean    Set fs = CreateObject("Scripting.FileSystemObject")    Set f = fs.GetFolder("c:\upload")'文件夹路径自己改成你要的。    Set fc = f.Files    For Each f1 In fc        While Not rs.EOF           If f1.Name = rs("up1") Then              fg = True              Exit Do           End If           rs.movenext        Wend        If Not fg Then f1.Delete        fg = False        DoEvents    Next    MsgBox "ok"   End Sub