kak ckoпировать самого себя

[elsen]

kak ckoпировать самого себя на ВБ из уже запушенной проги
причем место нахождение откуда была запушена прога неизвестно
*может меняться*

[A.A.Z.]

Место с прогой - App.Path, имя EXE'шника - App.EXEName
Копировать - FileCopy From, To
"Скопировать самого себя" значит, скопировать сам EXE'шник?
Если да, то:

Код: Выделить всё

Sub CopyMe()
Dim AP$
If Right(App.Path, 1) = "\" Then AP = App.Path Else AP = App.Path & "\"
FileCopy AP + App.EXEName, InputBox("Куда копировать?", "Копирование", "C:\")
End Sub

[EvilCoder]

<DELETE>

[Tamahawk]

ты хочеш создать ТРОЯН безсомнения

[EvilCoder]

<DELETE>

[elsen]

ты общибса уважаемый на счет трояна

[elsen]

спасибо всем я уже разобрался