Cita:
Iniciado por verinchi 
Hola Luis.
Tengo esta función que renombra archivos. Fijate como la podés adaptar.
El punto es: Deberías cerrarlo antes de renombrarlo para que no te de error por estar en uso el archivo.
Código:
Function RenombrarArchivo(origen,destino)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FileExists(origen)) then fso.MoveFile origen, destino
end if
set fso = nothing
End function
Esto obviamente, pasa todo el contenido tal cual está al archivo destino, si tenés que hacer modificaciones en el archivo, te conviene abrirlo para escritura, guardar los cambios y después cambiar el nombre.
Bueno, espero que sea de ayuda
Saludos!
Hola verinchi, gracias nuevamente!!!
ya he realizado mover, ò copiar archivos con su contenido exacto!!!, en realidad ese no es el problema... la dificultad consiste en que no puedo leer el contenido del documento en (word) ??? por que en txt lo hace muy bien pero en word me extrae caracteres extraños??? he probado varias cosas y nada!!! te explico lo que he hecho.
nomb_archi = "PAG00006"
archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "Pagares\Pag2\" & nomb_archi & ".doc"
'conectamos con el FSO
set confile = createObject("scripting.filesystemobject")
' verificamos que exista el archivo
if confile.FileExists(archivo) then
'abrimos el fichero para lectura
set fich = confile.OpenTextFile(archivo,1,false,-1)
texto_fichero = fich.readAll()
en la variable (texto_ficheo) leo todo el contenido del archivo pero me extrae puros caracteres extraños???
con la instrucciòn "OpenTextFile(archivo,1,false,-1)" ledigo como quiero abrir el archivo y los paràmetros son los siguientes (ruta_archivo, para lectura, que no cree un nuevo archivo si no existe, y este ùltimo es el formato que quiero como me abra el archivo)
este formato es:
0 = formato ASCII,
-1 = formato UNICODE
-2 = formato por defecto del sistema
he probado con todos y nada????
hay que hacer alguna otra cosa???
sì tienes alguna idea... gracias...