Enero 18, 2018, 12:31:47 am

Autor Tema: (ayuda) copiar sin sobreescribir  (Leído 2273 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado guidosl

  • Me das tu IP?
  • *
  • Mensajes: 56
    • Ver Perfil
(ayuda) copiar sin sobreescribir
« en: Marzo 11, 2009, 11:37:39 pm »
tengo una carpeta que contiene un "aaa.txt" ademas contiene muchas subcarpetas en las que tambien se encuentra ese "aaa.txt"

necesito un comando que le cambie la extencion a todos esos "aaa.txt" pero sin eliminarlos... osea seria copiarlos en la misma carpeta pero con otra extencion

ej: en cada carpeta y subcarpetas de estas tiene que quedar un "aaa.txt" y un "aaa.bat" (por decir una extencion)


C:\test\aaa.bat
C:\test\aaa.txt
C:\test\test
C:\test\test\aaa.bat
C:\test\test\aaa.txt
C:\test\test\test
C:\test\test\test\aaa.bat
C:\test\test\test\aaa.txt
C:\test\test\test\test
C:\test\test\test\test\aaa.bat
C:\test\test\test\test\aaa.txt

el problema es q no se cuantas subcarpetas hay ni cuales contienen el archivo "aaa.txt".....

lo unico que conosco es  la ubicacion de la carpeta principal. Ademas de que hay otros archivos con extencion .txt asi q no me sirbe cambiar solamente la extencion...tiene que ser unicamente los archivos con ese nombre completo ("aaa.txt)


graciass


PD: comando de batch por si alguien le da una idea de como hacerlo en vb6

cd /d "C:\test"
for /r "C:\test" %%- in (aaaa.txt) do (                            
copy /y "%%-" "%%~pn-aaa.bat" > nul 2>&1   
)


« Última modificación: Marzo 12, 2009, 01:30:46 am por guidosl »

Desconectado ScFiccion

  • Me das tu IP?
  • *
  • Mensajes: 121
  • Sexo: Masculino
  • La unica lucha qe se pierde, es la qe se abandóna.
    • Ver Perfil
Re: (ayuda) copiar sin sobreescribir
« Respuesta #1 en: Marzo 11, 2009, 11:56:44 pm »
creo que estos post te pueden servir, saludos.  ;D


You are not allowed to view links. Register or Login


You are not allowed to view links. Register or Login





Desconectado guidosl

  • Me das tu IP?
  • *
  • Mensajes: 56
    • Ver Perfil
Re: (ayuda) copiar sin sobreescribir
« Respuesta #2 en: Marzo 12, 2009, 12:02:47 am »
gracias pero busco hacerlo desde vb6

se que ahy otras formas mas faciles(por lo menos para mi) por ejemplo con un .bat ya lo tengo hecho


pero la idea es incluirlo dentro de un proyecto de vb para que se lleve a cabo al apretar un boton (no quiero hacer una llamada a ese .bat, quiero q los comandos sean todos de visual)


pero igual gracias

Desconectado seth

  • El mas real
  • G#
  • **
  • Mensajes: 7889
  • Sexo: Masculino
    • Ver Perfil
Re: (ayuda) copiar sin sobreescribir
« Respuesta #3 en: Marzo 12, 2009, 09:54:58 am »
para copiar esta la funcion filecopy(), seguramente en la msdn hay informacion

para buscar los archivos creo que es con las apis findfirtsfile y findnextfile, en recursos vb hay un buen manual


Ves links a xd-blog.com.ar que no andan? buscalos en You are not allowed to view links. Register or Login

Desconectado guidosl

  • Me das tu IP?
  • *
  • Mensajes: 56
    • Ver Perfil
Re: (ayuda) copiar sin sobreescribir
« Respuesta #4 en: Marzo 12, 2009, 11:07:36 am »
lo mas cercano que encotre fue esto

You are not allowed to view links. Register or Login

esto me busco y enlisto todos los archivos q necesitaba en un "listbox"

pero no encuentro la manera de hacer una copia de cada uno de ellos en su propio directorio...

hay alguna forma de trabar con cada linea que se escribe en el "listbox"? seria lo ideal!!!!


muchas gracias

Desconectado guidosl

  • Me das tu IP?
  • *
  • Mensajes: 56
    • Ver Perfil
Re: (ayuda) copiar sin sobreescribir
« Respuesta #5 en: Marzo 12, 2009, 12:53:09 pm »
la solucion:

====se necesita referencia "microsoft scripting runintime"====




Public Function CopyAAA(strCarpeta As String)
  Dim fso As New FileSystemObject
  Dim fCarpeta As Folder, fCarp As Folder
  Set fCarpeta = fso.GetFolder(strCarpeta)
  'Copiamos el archivo
  If fso.FileExists(strCarpeta & "\aaa.txt") Then _
  fso.CopyFile strCarpeta & "\aaa.txt", strCarpeta & "\aaa.bat"
  'Exploramos los subdirectorios
  For Each fCarp In fCarpeta.SubFolders
  CopyAAA (fCarp.Path)
  Next
  End Function




Private Sub Command1_Click()
CopyAAA ("C:\Test")
End Sub




esto era para ahcer el backup de cada archivo "aaa.txt"

ahora tengo que reemplazar todos los "aaa.txt" por un unico "aaa.txt" que se encuentra en la carpeta del proyecto de visual basic

osea seria sobreescribir cada uno por el q tengo en la carpeta del proyecto asi todos los de la carpeta "C:\test" y sus subcarpetas serian iguales (serian el que tengo en la carpeta del proyecto)

alguna idea=?¿??


gracias



Desconectado seth

  • El mas real
  • G#
  • **
  • Mensajes: 7889
  • Sexo: Masculino
    • Ver Perfil
Re: (ayuda) copiar sin sobreescribir
« Respuesta #6 en: Marzo 12, 2009, 01:02:55 pm »
ese es el que decia yo, modificas la linea                         ListBox.AddItem Path & FileName
y usas FileName como la ruta del archivo para hacer el filecopy

edit: no vi la otra pregunta
lo que tenes que hacer es lo mismo pero copiandolo como .txt
« Última modificación: Marzo 13, 2009, 08:51:14 am por >> s E t H << »


resuelto
[S]¿Cómo copiar una serie de archivos SIN SOBREESCRIBIR los que ya existen?

Iniciado por DyuK

14 Respuestas
7461 Vistas
Último mensaje Febrero 14, 2010, 04:58:17 am
por JaAViEr
xx
CMD. AYUDA PARA COPIAR A UN USB

Iniciado por El Guagiro

3 Respuestas
2898 Vistas
Último mensaje Junio 07, 2017, 05:58:48 pm
por Solid Water
xx
Sobreescribir funciones internas de PHP mediante namespaces

Iniciado por shevchenko

0 Respuestas
1536 Vistas
Último mensaje Marzo 21, 2009, 12:27:35 pm
por shevchenko
xx
[Codigo] Sobreescribir archivos con determinada ext [DrakoX]

Iniciado por DrakoX

6 Respuestas
2544 Vistas
Último mensaje Agosto 12, 2007, 08:23:32 pm
por DrakoX
xx
[ayuda]copiar un archivo en una carpeta

Iniciado por metroix

11 Respuestas
2473 Vistas
Último mensaje Mayo 10, 2007, 10:32:05 am
por Ther0x
question
Ayuda para copiar canvas de una web

Iniciado por Solid Water

0 Respuestas
1879 Vistas
Último mensaje Noviembre 23, 2017, 03:55:54 pm
por Solid Water
xx
Ayuda, Codigo copiar y pegar portapapeles

Iniciado por -The Nax-

6 Respuestas
3006 Vistas
Último mensaje Diciembre 10, 2007, 01:15:21 pm
por ziBboh
question
AYUDA Como ago para copiar un archivo y mandarlo

Iniciado por Christien

10 Respuestas
2213 Vistas
Último mensaje Enero 09, 2010, 09:23:00 pm
por alexmanycool
xx
¿como copiar 1pag web kom lade habohotel.es?ayuda plis

Iniciado por jose_14

3 Respuestas
1149 Vistas
Último mensaje Mayo 26, 2007, 04:08:02 am
por snok
resuelto
Ayuda [copiar archivo a una ruta posteriormente eliminar archivo copiado]

Iniciado por trax69

13 Respuestas
2645 Vistas
Último mensaje ſeptiembre 20, 2009, 10:29:57 am
por bolivianito