ADODB.Fields error '800a0bb9' in asp

D

DC

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,744
Messages
2,569,482
Members
44,901
Latest member
Noble71S45

Latest Threads

Top