Конференция VBStreets

**ZipFeR** » 18.10.2004 (Пн) 23:22

Кароче рассказываю, ОБЪЯСНЯЮ :

Вот моя прога, допустим лежит на диске D,
и чтоб при запуске этой проге, она автоматом искала
на каком диске находится папка WINDOWS и переместилась
или копировалась бы туда и сразу запустилась в новом месте !

тоесть мне надо чтобы при запуске прога ся копировала в папку
WINDOWS и себя там автоматом запустила, так как прога прописывается в автозагрузку в реестр, а нужно чтобы была новая записаь уже в WINDOWS.

Помогите плз, срочно нужно

**LeoPoLD** » 18.10.2004 (Пн) 23:36

Код: Выделить всё: Private Sub Form_Click() m = 1 Do EnvString = Environ(m) Print Environ(m) m = m + 1 Loop Until EnvString = "" End Sub

нажимаешь на форму и на тебе путь к папке виндовс на любом компе
туда и пихаешь свою прогу

т.к. я не в нормальном соостоянии разясню после 23 числа или кто нибудь другой разяснитъ

**ZipFeR** » 18.10.2004 (Пн) 23:39

непонял тебя, прога сама должна себя копировать и запускать, а ты че имеешь ввиду ? плиз поподробнее

**tyomitch** » 18.10.2004 (Пн) 23:47

Копирование: оператор FileCopy
Запуск: функция Shell
Папка Windows: Environ("windir")

Ещё вопросы?

**ZipFeR** » 18.10.2004 (Пн) 23:52

Извени за мою тупость, не мог ли ты мне код написать, а то я всерано не знаю как писать :cry:

я не прям так хорошо бэйсик знаю, но надо срочно :cry:

Извени пожалуйста :oops:

**LeoPoLD** » 19.10.2004 (Вт) 1:09

модуль

Код: Выделить всё: Private Sub ReCopyShell (FileX as String) FileCopy FileX, Environ("windir") Shell Environ("windir") + "\" + FileX End Sub

запуск

Код: Выделить всё: ReCopyShell "Имя файла"

я вроде отошел

**ZipFeR** » 19.10.2004 (Вт) 1:17

Код: Выделить всё: FileCopy "proga.exe", Environ("windir"))

Ну писал так, и еще писал в конце с одной скобкой, ни так и не так не рабоатет !!

Может там где мой файл нужно чето другое написать ?
Тока мне нужно чтобы там где моя прога я не писал путь, потомучто хрен знает где прога будет, кароче сама должна находить.

ПОМОГИТЕ ПЛИЗ !??!

**LeoPoLD** » 19.10.2004 (Вт) 1:21

Знаешь что такое опечатка пьяного

так вот эта скобка она и была

ты во первых запускаешь наверно без компила

во вторых код должен работать без проблем

**LeoPoLD** » 19.10.2004 (Вт) 1:24

LeoPoLD писал(а):модуль

Код: Выделить всё
Private Sub ReCopyShell (FileX as String) FileCopy FileX, Environ("windir") Shell Environ("windir") + "" + FileX End Sub

запуск

Код: Выделить всё
ReCopyShell "Имя файла"

я вроде отошел

посмотри еще раз немного его переделал

если ты хочешь чтобы программа копировалась при запуске в виндовс то это то что нужно

**ZipFeR** » 19.10.2004 (Вт) 1:24

Щас написал модуль и

Код: Выделить всё: ReCopyShell "proga.exe"

ХОЧУ ОТКОМПЕЛИТЬ И ВЫДЕЛЯЕТ ЭТО КРАСНЫМ И ПИШЕТ SUB ИЛИ FUNCTION НЕ ОПРЕДЕЛЕНЫ

ПОМОГИ ПЬЯНОМУ :lol:

не я не пьяный если чесно но срочняк надо

**LeoPoLD** » 19.10.2004 (Вт) 1:25

А че за программа

**LeoPoLD** » 19.10.2004 (Вт) 1:27

ZipFeR писал(а):Щас написал модуль и
Код: Выделить всё
ReCopyShell "proga.exe"

ХОЧУ ОТКОМПЕЛИТЬ И ВЫДЕЛЯЕТ ЭТО КРАСНЫМ И ПИШЕТ SUB ИЛИ FUNCTION НЕ ОПРЕДЕЛЕНЫ

ПОМОГИ ПЬЯНОМУ не я не пьяный если чесно но срочняк надо

ты первый раз пишешь

мне что тебе прогу скинуть

**ZipFeR** » 19.10.2004 (Вт) 1:29

Не я не первый, но такую первый раз, и многое незнаю, давай хочешь я те щас скину прогу а ты подправишь и скинешь м мне ?

**LeoPoLD** » 19.10.2004 (Вт) 1:29

пихай сюда my_wer@mail.ru

**ZipFeR** » 19.10.2004 (Вт) 1:32

Все прислал, жду ! Плиз давай быстрей, в форум напиши когда сделаешь и скинь обратно

**ZipFeR** » 19.10.2004 (Вт) 1:35

Ау, где прога-то ? :lol:

Можешь побыстрей если, а то спать нада

**LeoPoLD** » 19.10.2004 (Вт) 1:40

У тебя аська есть скинь ЛАН 328447176

**ZipFeR** » 19.10.2004 (Вт) 1:42

Ты в аську то войди, а то ты в ОФФЛАЙНЕ

**ZipFeR** » 19.10.2004 (Вт) 13:05

Люди ПОМОГИТЕ !
Мы так и не решили этот вопрос с леопольдом !

КТО-НИБУДЬ НАПИШИТЕ КОД !

**ta_gena** » 19.10.2004 (Вт) 13:38

Ты к proga.exe добавь полный путь.
Например "C:\Temp\Proga.Exe"

**EvilCoder** » 19.10.2004 (Вт) 16:35

**Max!** » 19.10.2004 (Вт) 18:22

ReCopyShell "proga.exe"

Пиши полный путь до проги ReCopyShell (App.path & "\proga.exe"")

:wink:

**tyomitch** » 19.10.2004 (Вт) 18:56

EvilCoder писал(а):
Код: Выделить всё
If SysPath <> App.Path Then

Думаю, могут быть глюки из-за разного регистра путей слева и справа.
Для гарантии, лучше сделать "If UCase(SysPath) <> UCase(App.Path) Then"

Ну и стоит обработать ситуацию, когда невозможно записаться в системную папку (напр. там уже есть файл с таким же именем и с защитой от записи).

**EvilCoder** » 19.10.2004 (Вт) 20:16

**ZipFeR** » 19.10.2004 (Вт) 20:55

Челы извените меня, дуру грешную

Но не можете пояснить что именно писать, а то тут так много.... :roll:

Max как писать полный пусть, если на другом компе прога может оказаться совершенно в другом пути, и нужно чтобы прога сама нашла на каком диске папка WINDOWS !

Evil - че писать именно первое или второе ? и это в модуле писать или где ?

**Prickly** » 19.10.2004 (Вт) 21:08

...меня, дуру грешную

tyomitch написал как определить путь к папке WINDOWS

Код: Выделить всё: Environ("windir")

**ZipFeR** » 19.10.2004 (Вт) 22:15

Бля скажите ктони-будь наконец ЧТО ПИСАТЬ ? У меня ниче не получаетца, где это все писать в модуле или нет, бли все по подробнее плиз, уже 2 день ответа не дождусь !

ВОТ ПРИКРЕПЛЯЮ ПРОГУ, НАПИШИТЕ В НЕЙ ПРАВИЛЬЫНЙ КОД И НАМЫЛЬТЕ МНЕ НА respaunt@mail.ru

ЖДУ С НЕТЕРПЕНИЕМ !

**tyomitch** » 19.10.2004 (Вт) 22:47

ZipFeR писал(а):Бля

Ай-ай-ай, как некрасиво!

**ZipFeR** » 19.10.2004 (Вт) 23:24

что ты издеваешься, лучше сказал бы как проуг написать

**ta_gena** » 20.10.2004 (Ср) 11:15

А может еще спинку вареньем помазать?

Конференция VBStreets

Вопрос про копирование и запуск !

Вопрос про копирование и запуск !

Заголовок сообщения: Вопрос про копирование и запуск !

Кто сейчас на конференции