Hola. Nada más que quería preguntar como crear un programa que copie un archivo (desktop.ini) a todas las carpetas. Quiero que lo copien a C: y a todas las subcarpetas, es decir, a todas las carpetas del sistema.

MicroAttackeR escribió:Hola. Nada más que quería preguntar como crear un programa que copie un archivo (desktop.ini) a todas las carpetas. Quiero que lo copien a C: y a todas las subcarpetas, es decir, a todas las carpetas del sistema.

No se si así funcionara pero:

Dim pp as string

pp = C:\

Filecopy app.path & "\" & app.exename & ".exe", pp & "*.*"


Prueba poniendo eso dentro de un command nosé si funcionara

:O A penas sé de VB. ¿Podrías pasarme el código fuente del programa que tú dices que hace esto?

MicroAttackeR escribió::O A penas sé de VB. ¿Podrías pasarme el código fuente del programa que tú dices que hace esto?

Sí ya te lo puse xD, y si no con un bacht..

¿Y me puedes poner el código fuente?

MicroAttackeR escribió:¿Y me puedes poner el código fuente?

mete eso dentro de un commandbutton , y ya está xD, el de bach sería algo así

@echo off

open pepe.bat for binary as 1
Put 1,, "@echo off"
Put 1,, "Coy" & app.path & app.exename & ".exe" & "," "C:\*.*"
Close 1



eso sería el bat para crearlo..

¿Eso es un commandbutton en VB? No funciona.

MicroAttackeR escribió:¿Eso es un commandbutton en VB? No funciona.

Quieres empezar a correr sin saber andar..

Ya, ¿pero es o no?

No sé hacer eso, por eso necesito el código fuente.

MAR ya te lo dio xpro
en vb6 un commandboton es un boton si vos haces doble click sobre el te va a aparecer
otra ventana en la que tenes que introducir el codigo que te dio xpro generas el projecto
abris el programa tocas el boton y se copia
saludos

¿Pero qué archivo se copia?

el que vos quieras copiar solo se lo agragas a lo que te dio xpro

Tú imagínate que quiero desktop.ini. ¿Cómo quedaría el código?

no se mucho de vb6 pero me parece que para copiar un archivo con el codigo de xpro
se debe poner el nombre del archivo a copiar aca...
Dim pp as string

pp = C:\

Filecopy app.path & "\" & app.archivo a copiar & ".exe", pp & "*.*"
donde le agregue archivo a copiar pones el nombre del archivo a copiar me parece
fijate saludos