vb程序 清理文件夹的文件
我网站目录下有个upload的文件夹，这个文件夹里都是用户上传的文件，我想用vb写一个exe的程序，把没有用的文件都删除，请问如何做？本来我可以写网页代码，但是这个文件夹里的文件有20多万个，用网页代码列这个文件夹的文件打不开，所以才想用vb写exe文件，但是我exe的水平还不够，所以在此求助大家。
我的数据库有表tb1，里面有个字段是up1，我想在用vb打开upload文件夹时，每处理一个文件时，验证一下tb1表中up1是否存在，如果没有就删除这个文件，请问怎么做？
[解决办法]
vb里有createobject"adodb.connection"和fso功能，和做asp网页几乎一样，另外还有dir等命令参数，你上网查询吧。
[解决办法]
作好备份，进行测试，数据部分你自写，我这里只用rs表你的文件记录集：
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
