Cambiar nombres de archivos

[ERNESTO G.]

Buen dia! Ojala alguien pueda ayudarme con esta situación.
Necesito cambiar desde un programa hecho en Visual Fox.. el nombre de
archivos que recibimos de otros proveedores que son bastantes, y como
cada proveedor le pone el nombre como mejor le parece yo necesito
estandarizar los nombres por lo cual necesito hacer dichos cambios
pero como dije anteriormente mediante un programa que hice en vfp.
El problema es que no puedo hacerlo ya que los nombres de los archivos
contienen espacios en blanco, por ejemplo: office depot de mexico.xml
y si ejecuto mediante el comando RENAME marca error al igual que si lo
hago mendiante la ejecución del comando RUN REN de msdos, por lo que
pido su ayuda para ver si lo puedo realizar de alguna otra manera.
Agradezco de antemano su colaboracion!.

[extremo]

coloca los nombres entre comillas ejemplo "office depot de mexico.xml"

Bendiciones

[Yvan GMAIL]

No estoy seguro si existe la funcion rename.. pero se me ocurre puede hacer
esto:

* obtener una copia con otro nombre
FSO = CreateObject(‘Scripting.FileSystemObject’)
FSO.CopyFile(‘c:\Archivo.txt’,'c:\x\’)

Y luego Eliminar el archivo.

fso =createobject(‘Scripting.FileSystemObject’)
* fldr = fso.DeleteFolder(‘C:\CarpetaEliminar’)
fldr = fso.DeleteFile(‘C:\Miachivo’)

Saludos.
Yvan Carranza

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de ERNESTO G.
Enviado el: Martes, 05 de Julio de 2011 11:20 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Cambiar nombres de archivos

[Yvan GMAIL]

Mas info.
http://msdn.microsoft.com/en-us/library/e1wf9e7w(v=vs.85).aspx

http://msdn.microsoft.com/en-us/library/thx0f315(v=vs.85).aspx

Saludos.
Yvan Carranza

-----Mensaje original-----
De: Yvan GMAIL [mailto:yvan.c...@gmail.com]
Enviado el: Martes, 05 de Julio de 2011 11:25 a.m.
Para: 'publice...@googlegroups.com'
Asunto: RE: [vfp] Cambiar nombres de archivos

No estoy seguro si existe la funcion rename.. pero se me ocurre puede hacer
esto:

* obtener una copia con otro nombre
FSO = CreateObject(‘Scripting.FileSystemObject’)
FSO.CopyFile(‘c:\Archivo.txt’,'c:\x\’)

Y luego Eliminar el archivo.

fso =createobject(‘Scripting.FileSystemObject’)
* fldr = fso.DeleteFolder(‘C:\CarpetaEliminar’)
fldr = fso.DeleteFile(‘C:\Miachivo’)

Saludos.
Yvan Carranza

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de ERNESTO G.
Enviado el: Martes, 05 de Julio de 2011 11:20 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Cambiar nombres de archivos

Buen dia! Ojala alguien pueda ayudarme con esta situación.

[ERNESTO GUZMAN]

si existe le funcion RENAME y es
RENAME nombredelarchivo TO nuevonombre
el problema es que como los nombres traen espacios marca error.

--
Ernesto G.

[Yvan GMAIL]

No me refiero al rename de vfp si no de FileSystemObject

 

 

Saludos.

Yvan Carranza

[ERNESTO GUZMAN]

ups perdon la ignorancia pero no entendi.

--
Ernesto G.

[ERNESTO GUZMAN]

Como comentario anexo..
Los nombres originales de los archivos y los nuevos nombres que deberan llevar los tengo en una tabla .dbf

[Yvan GMAIL]

Yo cuando manejo nombres largos y vienen de una tabla lo manejo asi

Dimension Origen(1)

Dimension Destino(1)

 

Copy origen(1) TO Destino(1)

O crreo…

Copy &origen(1) TO &Destino(1)

 

Y no tengo problemas.. aunque en el foro.. mandarlo una manera mas facil… pero como no uso mucho no me acuerdo..

 

 

Saludos.

Yvan Carranza

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de ERNESTO GUZMAN
Enviado el: Martes, 05 de Julio de 2011 12:31 p.m.
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Cambiar nombres de archivos

 

Como comentario anexo..

[Santiago Tejada joaquin]

QUIERO saver si te refiere a actulizar los datos que estan en la dbf

---

De: ERNESTO GUZMAN <erg...@gmail.com>
Para: publice...@googlegroups.com
Enviado: martes 5 de julio de 2011 14:31

Asunto: Re: [vfp] Cambiar nombres de archivos

[Luis Maria Guayan]

Utilizalo así:

NombreViejo = "office depot de mexico.xml"
NombreNuevo = "Documento 000123.xml"
RENAME (NombreViejo) TO (NombreNuevo)

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Santiago Tejada joaquin]

quiero saber si quieres cambiar los nombres que estan el dbf

---

De: Santiago Tejada joaquin <santiagote...@yahoo.es>
Para: publice...@googlegroups.com
Enviado: martes 5 de julio de 2011 14:52

Asunto: Re: [vfp] Cambiar nombres de archivos

[ERNESTO GUZMAN]

MUCHAS GRACIAS.. QUEDÓ COMO ME DIJISTE.

--
Ernesto G.

[ERNESTO GUZMAN]

No.. era cambiar nombres  de archivos .xml ya que recibimos dichos archivos de los proveedores pero para los usuarios que tienen que asociar los xml con las polizas tenian que estar abriendo los archivos y buscar el nombre y factura ya que no existe un estandard, por lo que para facilitarles el trabajo hice una aplicacion donde busco en el xml el nombre y factura del proveedor que envia para estarndarizar que todos los archivos xml comiencen con el nombre del proveedor y factura (de acuerdo a su razon social).

GRACIAS POR SUS APORTES YA RECIBI LA SOLUCION ADECUADA!.
SALUDOS A TODOS Y NUEVAMENTE GRACIAS!

[Walter R. Ojeda Valiente]

Ese problema lo tendrás con todos los archivos que tengan espacios en blanco en sus nombres.

La forma de solucionarlo es agregarle comillas y apóstrofos, por ejemplo:

lcNombreActual = "'OFFICE DEPTO DE MEXICO.XML'"
lcNombreNuevo = "'OFFICE RENOMBRADO.XML'"

RENAME &lcNombreActual TO &lcNombreNuevo

Fíjate que después de las comillas de apertura hay un apóstrofo y antes de las comillas de cierre otro apóstrofo. Para más claridad, también podrías escribir así:

lcNombreActual = "[OFFICE DEPTO DE MEXICO.XML]"
lcNombreNuevo = "[OFFICE RENOMBRADO.XML]"

RENAME &lcNombreActual TO &lcNombreNuevo

Saludos.

Walter.

> Date: Tue, 5 Jul 2011 09:20:10 -0700
> Subject: [vfp] Cambiar nombres de archivos
> From: erg...@gmail.com
> To: publice...@googlegroups.com

[Luis Maria Guayan]

Walter, siempre es conveniente y mas óptimo utilizar variables del tipo Name que Macrosustitución, obviamente en los comandos que lo permitan.

Ej:

NombreViejo = "office depot de mexico.xml"
NombreNuevo = "Documento 000123.xml"
RENAME (NombreViejo) TO (NombreNuevo)

 

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com

Nada corre como un zorro
_________________________

[Walter R. Ojeda Valiente]

Sí, lo sé, pero hay costumbres que permanecen.

Saludos.

Walter.

---

Date: Tue, 5 Jul 2011 19:06:27 -0300
Subject: Re: [vfp] Cambiar nombres de archivos
From: luism...@gmail.com
To: publice...@googlegroups.com

[ERNESTO GUZMAN]

Muchas gracias Walter por tu tiempo y la opcion que me das.. es la que aplicaré.

--
Ernesto G.