Visual Basic - Ayuda, reemplaza espacios por guin bajo!!!!!

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda, reemplaza espacios por guin bajo!!!!!

Publicado por antonio (2 intervenciones) el 23/12/2014 17:42:36
Hola, una duda, quiero reemplazar los espacios por guiones bajos a unos archivos, he echo el programa pero solo me cambia el primer archivo, creo que le falta un else para validar que en caso de que no tenga el espacio se pase al siguiente registro, no se como hacerlo, me ayudarian, diez puntos porfa!!!

Private Sub Command1_Click()
Dim PathArchivo As String
Open "D:\maxi\lista.txt" For Input As #1
Do While Not EOF(1)
Input #1, PathArchivo

FileCopy PathArchivo, Replace(PathArchivo, " ", "_")
Kill PathArchivo



Loop

Label1.Caption = PathArchivo
Label1.Refresh

Close #1



MsgBox "termine!!!"

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Ayuda, reemplaza espacios por guin bajo!!!!!

Publicado por Andres Leonardo (702 intervenciones) el 23/12/2014 20:06:02
Pues no lo que te falta es revisar todos los archivos.... solo vas a uno de la ruta.... en todo caso te enviare parte del codigo y adaptala si tienes alguna duda avisame...
**Con el for each vas validando archivo por archivo de la ruta y con los demas instrucciones sacas lo que necesitas, puedes hacer filtro por nombre, por ext .... ya queda a tu imaginacion.
No tengo el VB ahora pero con gusto te ayudare si necesitas algo mas.....


'Declaraciones
Public fs As New FileSystemObject
Public temporal As Folder
Public Archivo As File

Private Sub Command1_Click()
Set temporal = fs.GetFolder(App.Path & "\txt") '("c:/cias/Rl/") ' la ruta donde estan tus archivos.....
nombre as string
Open "D:\maxi\lista.txt" For Input As #1
Do While Not EOF(1)
nombre = Archivo.name
Archivo.name (aqui tienes el nombre del archivo)
'archivo.path te dara la ruta
'archivo te data toda la ruta el nombre y hasta la extension.

FileCopy archivo.name, Replace(archivo.name, " ", "_")
Input #1, nombre
' Kill Archivo.path no se por que lo eliminas... en todo caso.... lo comento.
Loop

Next Archivo


Label1.Caption = PathArchivo
Label1.Refresh

Close #1



MsgBox "termine!!!"

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda, reemplaza espacios por guin bajo!!!!!

Publicado por antonio (2 intervenciones) el 23/12/2014 22:22:26
ok, Gracias, solucionado, eres todo un experto, y Gracias por la ayuda!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo

Ayuda, reemplaza espacios por guin bajo!!!!!

Publicado por Andres Leonardo (702 intervenciones) el 24/12/2014 15:32:39
Bueno no soy experto... pero Gracias ... un gusto poderte ayudar ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar