| Вопрос: а как сделать так шоб прога.... | Добавлено: 03.06.03 23:03 |
Автор вопроса:  HoTDog | Web-сайт: www.mult.ru
|
|
А как сделать так шоб прога при первом (!) запуске скопировала себя в какой-нибуть каталог, типа "C:\WINDOWS" ,a??? прога кстати 40кб, не большая... |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 04.06.03 01:34 |
При запуске проги проверяешь, есть ли в этом каталоге копия твоей проги, если нет, то копируешь FileCopy или API CopyFile 
|
||
|
Номер ответа: 2 Автор ответа: Danger2002Вопросов: 10 Ответов: 109 |
Профиль | | #2 | Добавлено: 04.06.03 12:28 |
|
Sub CopyTo() On Error GoTo Err If LCase(MyPath) <> LCase(NewLocation) Then If Dir(NewLocation) <> "" Then Kill NewLocation FileCopy MyPath, NewLocation Shell NewLocation,vbHide DoEvents Unload Me End If Err: End Sub |
||
Страница: 1 |