самокопирование и стринговая переменная

[Bov]

Сорри за оффтоп, но есть два важных для меня вопроса, начну с главного:

1) короче, скомпилировал я из VB EXE файл и нужно что-бы он сам себя скопировал в "C:\WINDOWS\SYSTEM\" какой код нужно в него вставить до компиляции, как это сделать? Слышал про объект App, но так ничего и невышло!

2) есть СТРИНГОВАЯ(!!!) переменная ( к примеру a$), как узнать, состоит она из цифр ( например a$="1234567890" ), или из символов ( a$="abcdefgh" )

P.S. если цифры со "стрингом" ( например a$="abcd1234" - нужно считать за стринг ). Заранее спасибо.

[CodeName33]

Bov

1) Не проверял, но вроде всё верно:

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

A=App.Path & iif(mid$(app.path,len(app.path),1)="\","","\")
FileCopy A & App.ExeName & ".exe","C:\WINDOWS\SYSTEM\" & App.ExeName & ".exe"

2)

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

if a$=format$(val(a$)) then 'Число

[Konst_One]

isnumeric() никто не отменял

[alibek]

isnumeric() никто не отменял

Сделай IsNumeric("&habcd")

[Konst_One]

alibek
а при чем тут это?

спрашивали же про обычные числа и строки:

"1234567890" или из символов "abcdefgh"

[Bov]

Спасибо вам друзья...!!!

[vvs_adm]

Konst_One
Ну вообще не факт, он свободно мог под строкой "abcdefgh" подразумевать любую строку, не состоящую целиком из цифр Вопрос просто несовсем корректный.

[Bov]

Bov

1) Не проверял, но вроде всё верно:

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

A=App.Path & iif(mid$(app.path,len(app.path),1)="","","")
FileCopy A & App.ExeName & ".exe","C:\WINDOWS\SYSTEM" & App.ExeName & ".exe"

Cорри, помоему первый код неработает...

[BV]

Опять трояна кто-то пишет.

[Bov]

Сорри. Код работает - проблема была во мне. А на счёт трояна зря ты так, пишу программу которая делала мне всевозмржные напоминания, нжно autorun.

[BV]

Не могу придумать - что программе "для напоминаний" делать в системной папке.