Hello guys,

Hope anyone of you can help me. I'm working on an update routine. My client uploads files to a folder on the webserver. This is what I need...

I need to compare the value of field("FileName") with the actual filename in the folder. If it does not exist the fileinfo has to be stored in the database. I'm using a FSO to do this.

Here is my code so far...

    Set FSO = CreateObject("Scripting.FileSystemObject") 'Make File System Object
    'Defines the path to the Aangiften Directory
    sPad = GeefPad(TestFilePath) 'Test path
    response.write(sPad & "<BR>")

    Dim rsAangiften
    sql = "SELECT * FROM tblAangiften"
    set rsAangiften=conn.execute(sql)

    Set objFolder = FSO.GetFolder(sPad) 'Return Folder paths to FSO

        For Each objFile In objFolder.Files 'For each File in MainFolder
            If Not rsAangiften.EOF Then
                'While Not rsAangiften.EOF
                    Dim sFileName
                    sFileName = rsAangiften("Bestandsnaam")
                    sFileName = sFileName & "." & rsAangiften("Extentie")

                    If objFile.Name <> sFileName Then
                        response.write("FileName: " & sFileName & "<BR>" & "FSO.FileName: " & objFile.Name & "<BR>")
'' InsertPdf clientID, objFile.Name, objFile.DateCreated, "Nieuw" 'Put pdf file into dBase using stpAangiften_Insert
'' response.write(objFile.Name & "<BR>")
'' response.write(objFile.DateCreated & "<BR>" & "<BR>")
                        rsAangiften.MoveNext
                    End If
                'Wend
            End If
        Next
' rsAangiften.MoveNext
' Wend
' End If

Sorry for the mess :-p still under construction so no need to keep it tidy.

Many thanks in advance,

Grtz,
Helly

Hi,

You are Using Query outside the For Loop. Please try this one-
Dim Rs

For Each objFile In bjFolder.Files
   sql = "SELECT * FROM tblAangiften where FileName ="& objFile
   Set Rs=Con.Execute(sql)
   if Not Rs.EOF then
        Response.write(" something ")
   end if
Next