ADODB.Fields error '800a0bb9' in a script

Im getting the error

ADODB.Fields error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.

In the following script to copy and rename the latest file in a webcam
folder. Any ideas why this is failing?

<%
Dim objFSO, rsFSO, objFolder, File, varFileName
Set rsFSO = Server.CreateObject("ADODB.Recordset")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Documents and
Settings\Administrator\My Documents\My Pictures\ImageStudio\Album\Motion
Images\")

   rsFSO.Fields.Append "Name", adVarChar, 200 -----Error occurs on this line.
   rsFSO.Fields.Append "Type", adVarChar, 200
   rsFSO.Fields.Append "DateCreated", adDate
   rsFSO.Fields.Append "DateLastAccessed", adDate
   rsFSO.Fields.Append "DateLastModified", adDate
   rsFSO.Fields.Append "Size", adInteger
   rsFSO.Fields.Append "TotalFileCount", adInteger
   rsFSO.Open

   For Each File In objFolder.Files
    'hide any file that begins with the character to exclude
    If (Left(File.Name, 1)) <> Exclude Then
    rsFSO.AddNew
    rsFSO("Name") = File.Name
    rsFSO("Type") = File.Type
    rsFSO("DateCreated") = File.DateCreated
    rsFSO("DateLastAccessed") = File.DateLastAccessed
    rsFSO("DateLastModified") = File.DateLastModified
    rsFSO("Size") = File.Size
    rsFSO.Update
    End If
   Next
  
   rsFSO.Sort = "DateLastModified"

Set objFolder = Nothing
rsFSO.MoveFirst()
set varFileName = rsFSO("Name").Value

objFSO.CopyFile "C:\Documents and Settings\Administrator\My Documents\My
Pictures\ImageStudio\Album\Motion Images\" & varFileName,
"C:\Inetpub\Scripts\Webcam\Images\CurrentImage.jpg"
%>

<img src="\images\CurrentImage.jpg">

Thanks in advance.


--
_______________________________________________

DC

"You can not reason a man out of a position he did not reach through reason"

"Don't use a big word where a diminutive one will suffice."

"A man with a watch knows what time it is. A man with two watches is
never sure." Segal's Law<!-- ~MESSAGE_AFTER~ -->

Did you include the adovbs.inc where adVarChar and the rest is defined ?

PL.


"DC" <sws99dsc.TakeThisOut@rdg.ac.uk> skrev i meddelandet news:3F5F4067.7050003@rdg.ac.uk...
 > Im getting the error
 >
 > ADODB.Fields error '800a0bb9'
 >
 > Arguments are of the wrong type, are out of acceptable range, or are in
 > conflict with one another.
 >
 > In the following script to copy and rename the latest file in a webcam
 > folder. Any ideas why this is failing?
 >
 > <%
 > Dim objFSO, rsFSO, objFolder, File, varFileName
 > Set rsFSO = Server.CreateObject("ADODB.Recordset")
 > Set objFSO = CreateObject("Scripting.FileSystemObject")
 > Set objFolder = objFSO.GetFolder("C:\Documents and
 > Settings\Administrator\My Documents\My Pictures\ImageStudio\Album\Motion
 > Images\")
 >
 > rsFSO.Fields.Append "Name", adVarChar, 200 -----Error occurs on this line.
 > rsFSO.Fields.Append "Type", adVarChar, 200
 > rsFSO.Fields.Append "DateCreated", adDate
 > rsFSO.Fields.Append "DateLastAccessed", adDate
 > rsFSO.Fields.Append "DateLastModified", adDate
 > rsFSO.Fields.Append "Size", adInteger
 > rsFSO.Fields.Append "TotalFileCount", adInteger
 > rsFSO.Open
 >
 > For Each File In objFolder.Files
 > 'hide any file that begins with the character to exclude
 > If (Left(File.Name, 1)) <> Exclude Then
 > rsFSO.AddNew
 > rsFSO("Name") = File.Name
 > rsFSO("Type") = File.Type
 > rsFSO("DateCreated") = File.DateCreated
 > rsFSO("DateLastAccessed") = File.DateLastAccessed
 > rsFSO("DateLastModified") = File.DateLastModified
 > rsFSO("Size") = File.Size
 > rsFSO.Update
 > End If
 > Next
 >
 > rsFSO.Sort = "DateLastModified"
 >
 > Set objFolder = Nothing
 > rsFSO.MoveFirst()
 > set varFileName = rsFSO("Name").Value
 >
 > objFSO.CopyFile "C:\Documents and Settings\Administrator\My Documents\My
 > Pictures\ImageStudio\Album\Motion Images\" & varFileName,
 > "C:\Inetpub\Scripts\Webcam\Images\CurrentImage.jpg"
 > %>
 >
 > <img src="\images\CurrentImage.jpg">
 >
 > Thanks in advance.
 >
 >
 > --
 > _______________________________________________
 >
 > DC
 >
 > "You can not reason a man out of a position he did not reach through reason"
 >
 > "Don't use a big word where a diminutive one will suffice."
 >
 > "A man with a watch knows what time it is. A man with two watches is
 > never sure." Segal's Law
 ><!-- ~MESSAGE_AFTER~ -->