FSO y renombrando archivos

[sanfermin]

Necesito renombrar archivos de un directorio, he buscado información sobre el metodo file.move q supongo se usará para renombrar pero no lo logro...


http://msdn.microsoft.com/library/SP...bjectmodel.asp

http://www.portalvb.com/Articulos/VB...1/00000001.asp

[orharo2003]

Utiliza el CMD con wscript.run, envias los parametros de rename file1 file2 etc y listo.

[sanfermin]

es para una aplicacion web ASP en un servidor remoto, se puede hacer eso?? como?? :S

[orharo2003]

Renombrar remotamente ??? Ups, nunca lo he intentado lo que yo te digo es válido desde el mismo servidor web porque estás usando el cmd.exe= [commnd.com] Es como escribirlo directamente desde la consola nadamá que haciendolo desde ASP y enviando la instrucción.

Lamento no poderte ayudar más, pero mis capacidades no me dan para más.

[Myakire]

Checa esta liga: http://www.forosdelweb.com/showthrea...ight=renombrar

Saludos

[nacho_huerta]

Y porque no haces una copia del archivo (verificando primero que no exista el nuevo nombre). Y despues eliminas el original.

Ya se que son 2 pasos, pero es lo primero que se me viene a la mente

[sanfermin]

Gracias de todas formas, a ver si alguien me ayuda xD

http://www.forosdelweb.com/showpost....82&postcount=1

[sanfermin]

Gracias por el link logre solucionarlo

Código HTML:

ruta = Server.MapPath("\") &"\dir\"
set fich = Server.CreateObject("Scripting.FileSystemObject")
set archivo = fich.GetFile(ruta & archivo)
archivo.move(ruta & nombrenuevo)

[sanfermin]

como puedo controlar q el nombre del achivo q voy a renombrar no exista ya en el directorio???

Microsoft VBScript runtime error '800a003a'

File already exists

[orharo2003]

Sr. Le pido de la manera más atenta que cheque en las Faqs antes de preguntar.

2 páginas atras respodí lo mismo:

Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function

[sanfermin]

Busque otro post con el mismo tema
Gracias de todas formas, ya esta solucionado, ahora buscaré como paginar resultado al hacer el listado del directorio

[luis_eficiente]

Iniciado por orharo2003

Sr. Le pido de la manera más atenta que cheque en las Faqs antes de preguntar.

2 páginas atras respodí lo mismo:

Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function

Hola!!! tengo un problema similar y espero que puedan ayudarme!!!

Estoy intentando copiar un archivo de un lugar a otro con el FSO y me arroja un error despuès de copiar el archivo ???

lo extraño es que sì està copiando el archivo donde yò quiero pero luego me arroja un error y no co`ntinnua copn la aplicaciòn!!!

estoy usando algo asì!!!

set confile = createObject("scripting.filesystemobject")

if confile.FileExists(archivo_ori) then

set fich = confile.CopyFile(archivo_ori, archivo_des, true)

end if

... otras instrucciones

copia el archivo pero me arroja error y no se ejecuta ninguna instruccion luego de que copia el archivoª!!!


alguien tiene alguna sugerencia???

[Myakire]

Antes que nada, sugiero que pongas el error