vb程序 清理文件夹的文件

Question

我网站目录下有个upload的文件夹，这个文件夹里都是用户上传的文件，我想用vb写一个exe的程序，把没有用的文件都删除，请问如何做？本来我可以写网页代码，但是这个文件夹里的文件有20多万个，用网页代码列这个文件夹的文件打不开，所以才想用vb写exe文件，但是我exe的水平还不够，所以在此求助大家。我的数据库有表tb1，里面有个字段是up1，我想在用vb打开upload文件夹时，每处理一个文件时，验证一下tb1表中up1是否存在，如果没有就删除这个文件，请问怎么做？

Answer 1

http://download.csdn.net/source/3384863

Answer 2

vb里有createobject"adodb.connection"和fso功能，和做asp网页几乎一样，另外还有dir等命令参数，你上网查询吧。

Answer 3

作好备份，进行测试，数据部分你自写，我这里只用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