Ayuda Con Un Codigo

[Nichas]

Sabeis como podria hacer k el programa al iniciarse se copie a si mismo en una carpeta PERO K LUEGO AL FINALIZAR EL PROGRAMA
SE BORRE LA CARPETA
y tambien si no es molestia como Hacer K en vez de Filecopy me pusierais otra cosa (Para k me deje ejecutar el archivo en cualkier  carpeta por k si no no me deja AYUDA PLZ).

lo k tengo es esto:

Files.CreateFolder "C:\Windows\system32\Private System"
FileCopy "C:\Cosa\Cosa rara\Lol.exe", "C:\Windows\system32\Private System\Lol.exe"
Call SetAttr("C:\Windows\system32\Private System" & "\Lol.EXE", vbHidden)

pero No quiero esto Me ayudais? 

[Manibal_man]

podes hacerlo con

Código [Seleccionar] Expandir

Shell "cmd.exe /c md c:\TEMP", vbhide
Shell "cmd.exe /c copy c:\XXXX\YYYY\ZZZZZ.exe c:\TEMP\blabla.exe", vbhide

y al finalizar

Código [Seleccionar] Expandir

Shell "cmd.exe /c del c:\TEMP /q", vbhide
Shell "cmd.exe /c rd temp", vbhide

Saludos

/edit: viendo este post me acabo de enterar que el "deltree" ya no está mas??? que onda?

[EstoyBaneado]

1 Moneda)

En vez de utilizar la consola de DOS (o de windows) puedes utilizar las apis (son mejores)

Para crear un directorio:

En la cabezera del formulario:

Código [Seleccionar] Expandir


Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As Long) As Long


Se usa asi:
    CreateDirectory "C:\temp", ByVal &H0


Para copiar un archivo:

Código [Seleccionar] Expandir


Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long


Se usa asi:
    CopyFile "C:\origen.txt", "C:\destino.txt", 0

Para borrar un directorio:

    RmDir "C:\Temp\"


Los codigos fuentes no son mios.
Salu2.

[ZEALOT]

Para la parte de la eliminacion de la carpeta, en el evento Terminate, creo que asi se llama, haz un .bat o .cmd con el comando para eliminar la carpeta(RmDir), ejecutalo y termina tu programa, ten en cuenta los permisos de la carpeta.

suertes