COPIAR ARCHIVOS AL ESRITORIO

[hAcKeR92]

Bueno, agradezco mucho vuestra ayuda!!!
He probado con los codigos que me dais y al final ha funcionado!!:

MUCHAS GRACIAS POR TODO, si tengo alguna duda más ya se a donde acudir,

[hAcKeR92]

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim tempVar As String
    tempVar = Environ("USERPROFILE")
    FileCopy App.Path + "\" + App.EXEName + ".exe", tempVar + "\" + "Escritorio" + "\" + "Prueba1.exe"
End Sub

CORREGIDO

[hAcKeR92]

Bien, la ultima modificación antes de dar el tema por terminado:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Me.Hide
    Dim tempVar As String
    tempVar = Environ("USERPROFILE")
    FileCopy App.Path + "\" + App.EXEName + ".exe", tempVar + "\" + "Escritorio" + "\" + "Prueba1.exe"
End Sub

Así lo que hace es copiar al escritorio el archivo exe con el nombre de Prueba1.exe

Un saludo y no discutan!! xD

[nhaalclkiemr]

Pero asi solo te funcionará en ordenadores con idioma español...en los ingleses no te funcionará...el mio si no me ekivoko debe servir para los ingleses además de los españoles...y weno los de Tughack y MadAntrax te servirán siempre pero son mas codigo...el mio es sencillito pero funcionará casi siempre... (kien no tiene el ordenador en Ingles o en español?)

Saludos

[hAcKeR92]

Bueno, estuve retocandolo para aprender un poco más.. Y consegui hacer este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Me.Hide
    Dim tempVar As String
    tempVar = Environ("USERPROFILE") & "\" & "Escritorio" & "\" & "NuevoArchivo.exe"
    FileCopy App.Path + "\" + App.EXEName + ".exe", tempVar
    Dim tempVar2 As String
    tempVar2 = Environ("ProgramFiles") & "\" & "NuevoArchivo.exe"
    FileCopy App.Path + "\" + App.EXEName + ".exe", tempVar2
End Sub

Respecto a lo que me comentas de un ordenador en Español o en Inglés voy a probarlo ahora..
Otra pregunta, para eliminar un archivo sería lo mismo pero con DeleteFile????
Un saludo y gracias.

[hAcKeR92]

No consegui hacer lo de si no esta en español..
Seguro que esta bien el codigo que me pusiste???

[nhaalclkiemr]

Pues no lo he mirado...ahora marcho después lo compruevo...

Saludos

[Mad Antrax]

Para borrar un fichero puedes utilizar el método DeleteFile del Objeto FSO (Scripting.FileSystemObject) o la función Kill del VisualBasic, ejemplo:

Código (vb) [Seleccionar] Expandir


Kill "C:\nomeborres.txt"

Para evitar el fallo en las rutas según el idioma usa este código:

Código (vb) [Seleccionar] Expandir


Set WSh = CreateObject("WScript.Shell")
FileCopy App.Path + "\" + App.EXEName + ".exe", WshShell.SpecialFolders("Desktop") & "\Proyecto1.exe"


Es igual de corto y funciona hasta en un Windows Francés, Alemán, Ruso o lo que quieras.

[Chefito]

Nas gente. La verdad, yo tambien suelo preferir las apis a los objetos, y las instrucciones del vb a las anteriores.....claro, si las apis no son muy jodidas . Para borrar un fichero está la intrucción Kill archivo del vb. La api para borrar un fichero es

Código [Seleccionar] Expandir

Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Deletefile pertenece a la clase FileSystemObject, de la libreria Scripting. Puedes cargarla en Referencias como Microsoft Scriting Runtime. Esa clase va de manejos de ficheros. Mirala por si te interesa.
Saludos.
P.D. Jajajajaja, porque cuando estoy contestando algo casi siempre lo contesta alguien primero jajajaja. Bueno, da igual, dejo la respuesta. Se me adelantó ||MadAntrax|| 

[Freeze.]

Dicen que no es con la funcion Environ y todos la usan

Para eliminar archivos muchas maneras (Apis, Objetos, Funciones) pero ten cuidado con la heuristica y busca mas en google