Se puede danar un componente?

[dobled]

hace un tiempo ocupe este codigo :

Set objfso = Server.CreateObject("Scripting.FileSystemObject")
origen="v:\tienda.mdb"
destino="C:\"
'objfso.MoveFile origen, destino
objfso.CopyFile origen, destino

hoy lo he buscado para volver a utilizarlo y me da error en el explorer

HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

--------------------------------------------------------------------------------

da el error en la linea
objfso.CopyFile origen, destino

que pasara?
lo probe local y en el server y me da igual el error

[Don Graff]

existe origen¿...tienes permisos de escritura sobre destino¿...

[dobled]

si pues el archivo existe los permisos estan bien antes lo hice con el mismo codigo

[dobled]

mira ya encontre el error pero ahora tengo este otro chuta...


const base_datos="/pruebas/javs.mdb"
const driver_name="Microsoft Access Driver (*.mdb)"
Dim oConn
Set oconn= Server.CreateObject("ADODB.Connection")
oConn.ConnectionTimeout = tiempo
oConn.open "DRIVER=" & driver_name &";DBQ=" & server.mappath(base_datos)

strsql ="SELECT archivo FROM pdf "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, oConn,3,1

Set objfso = Server.CreateObject("Scripting.FileSystemObject")

do while not rs.eof
File=trim(rs("archivo"))
'Archivo= File & ".pdf"
Archivo = File

IF NOT objfso.FileExists(file) THEN
Response.Write(file &" No existe<br>")
'rs.MoveNext 'te sobra esto
Else
origen="K:\planos para matriceria\die cutter\"& file
destino="K:\catalogo_pdf\"
objfso.MoveFile origen, destino
Response.Write(archivo &" Movido con Exito<br>")
end if 'te faltaba esto

rs.MoveNext
Loop

****************************************

No coinciden los tipos: 'objfso.FileExists'
/pruebas/mover_archivos.asp, line 21
este es la 21

IF NOT objfso.FileExists(file) THEN

que pasa