[ayuda]copiar un archivo en una carpeta

[metroix]

man noc como aser como por ejemplo poner en una carpeta el programa de visual basic y un archuvo por ejemplo lol.txt y que se copie por ejemplo a a mis archivos recividos pero esto se lo quiero pasar a varia gente la cosa es que nose donde esta el escritorio o la carpeta por ejemplo puedo aser copyfile lol.txt , c:/archivos recividos/lol.txt la cosa que si por ejemplo alguien lo arrastra asia c: como ase el visual basic para buskar el archuvo si yo le avia indicado el escritorio nose si me explico

lo que quiero es porner en una carpete el programa que copia el archuivo (el de vb) y un archuvo de texto y que la carpeta pueda ser ubicada en cualquier parte de la c y aser su funcion

[Ther0x]

no he entendido muy bien lo que quieres hacer, pero me parece que con esto te serviría:

Código:

copyfile (app.path & "archivo.txt", "donde tu quieras")

copias archivo.txt, mientras que esté en la misma carpeta que tu programa




salu2

[metroix]

man eso es lo que quiero pero me da error al ejecutarlo (sintax error) :s

esto es lo que pongo yo

Private Sub Command1_Click()
copyfile (app.Path & "archivo.txt", "c:/program files")
End Sub

[Ther0x]

Private Sub Command1_Click()
copyfile (app.Path & "archivo.txt", "c:/program files")
End Sub

el problema lo tienes en que no has especificado el archivo que se va a crear.
tendrías que poner:

Código:

copyfile (app.path & "/archivo.txt" , "c:/program files/archivo2.txt")

salu2

[metroix]

naa man me sigue saliendo lo de sintax y aveces me sale uno y que expect algo asi nose capas tienes algo malo hay man mira como lo ago

Private Sub Command1_Click()
copyfile (app.path & "/archivo.txt" , "c:/program file/archivo2.txt")
End Sub

[crypto136]

te has equivocado en todo mi amigo prueba con esto:
lo pegas en el evento click del commandbutton, luego lo generas como ejecutable y  lo pruebas.

Código:

FileCopy (App.Path & "\" & App.EXEName & ".exe"), ("C:\copia.exe")

[metroix]

 no entiendo muy bien tu codigo
por ejemplo tengo el archivo = lol.txt y lo quiero pasar a c:/archivos de programa como lo pongo en tu codigo

edit:
listo man no entendia tu codigo porq crei que con ese no se podia con otro tipo de archivos pero ya le ise un cambia a es codigo aqui esta para compartilo

FileCopy (App.Path & "\" & App.FileDescri ption & "archivo.txt"), ("C:\archivo.txt")

man y sabes tambien como aser esto tambien pero con una carpeta?

[crypto136]

Código:

Dim Obj_Fso As Object
Set Obj_Fso = CreateObject("Scripting.FileSystemObject")
Private Sub Command1_Click()
Dim fso As FileSystemObject
Set fso = New FileSystemObject ' Se crea la instancia
fso.CopyFolder rutaOrigen, rutaDestino
Set fso = Nothing
End Sub

eso es para copiar una carpeta !

[metroix]

man me da un error podrias explicarlo un poco porfavor ? osea donde pongo el nombre de la carpeta y donde pongo donde quiero que la COPIO..

[Ther0x]

Código:

fso.CopyFolder rutaOrigen, rutaDestino

cambias rutaOrigen por la carpeta que quieres copiar y rutaDestino por donde la quieres copiar



salu2

[ziBboh]

Código:

Filecopy App.Path & "\" & "Archivo.Txt", "C:\ProgramFiles" & "\" & "Nuevo_Archivo.Txt"

Creo que es asi. No lo hagan bolas!, jejeje.

[Ther0x]

Código:

Filecopy App.Path & "\" & "Archivo.Txt", "C:\ProgramFiles" & "\" & "Nuevo_Archivo.Txt"

me parece que es obligatorio que vaya entre ( )


salu2