Копирование

[Gig31337]

Народ, помогите плиз...
Нужно сделать так, чтобы прога при запуске копировала сама себя на хард диск в определённую папку, например, C:\11111\

[kirrun]

это слишком просто. Ищи сам

[GM]

Вот так

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

call FileCopy( IIf(Right$(App.path, 1) = "\", App.path, App.path & "\") & App.EXEName & ".exe","c:\11111\")


Зачем IIf, а это если вдруг твоя прога лежить в корневом каталоге.

[hCORe]

{для информации: IIf - бывает ужасно удобно, но медленно. Потому что Variant.}

[alibek]

Ну, от того что один раз при запуске программа будет работать 23017мс вместо 22954мс мир не рухнет

[hCORe]

Согласен. Но при большом количестве проверок различных параметров в цикле лучше делать блоки If ... Then - ElseIf ... Then - Else ... End If. Или Select Case.