©0pY @n €X€ w ]-[ ! L€ !t'$ ®UnN!ng ???

[vbAlex]

hi all

i send my program via e-mail to the user and he opens the program from the e-mail-program (outlook: select open instead of save).
now the program tests, if it is already in the right folder. if not, it copies itself to the folder, while it is running...

is this possible?????
or what can i do...



@|€x -

mhhh... use dde comunication to let you're program close if it is running, copy the file to the right folder, and run you're prog again.

or u use the RunOnce reg-key(s)

hope that helps
talon


btw: don't know why u use this lame font at the subject....

OK, it was funny once, but please dont use that ©R@ppY font every time. i know its not a font, but what the hell else would you call it!

[vbAlex]

info: wer will kann mit mir auch deutsch reden.... *g*

ad font: it's simple fun!
and it catches the readers eyes....

how to use the dde comm. ? (bidde nich mehr in engl wenn möglich...das is zu kompliziert...)

is it possible to add the .exe to the project and then write it to the hd with
open "" for output binary as .....
???

m€

[Bad5887]

here is a way to copy your prgoram while it is running:

just use the 'app.path+"\"+app.exename' for the input file, it does work while its runing, its the copy routine i used for my self Extracting EXE...

î Mäðè à §îMþ£Ê þ®óG®ÀM †HÁ† ðôÊš †HΧ, †HÏš îš è¤†ëñÐÊÐ ©HîÂç†ô®š, †HË ÇHä®Ç†Ö®š W̆H †Hë ã§ÇÎí Vå£Ûè G®ËÂ†è® †HÅÑ 127.

äÃÃÄéÊééêÈÏíÌÌìõÖÓÒÒûÙÚÚÙÚÛ



{

SUB copy (inputfile$, outputfile$)
DEFINT A-Z
FreFil1 = FREEFILE
OPEN inputfile$ FOR BINARY AS #4
FreFil2 = FREEFILE
OPEN outputfile$ FOR BINARY AS #5

DO
r = r + 1

IF r * 1024& > LOF(4) THEN t = LOF(4) - ((r - 1) * 1024&) ELSE t = 1024&
a$ = SPACE$(t)
GET #4, , a$
PUT #5, , a$
LOOP UNTIL LOF(4) = LOF(5)
CLOSE #4, #5

END SUB


}

Brandon D
B.A.D. Software
[email protected]
http://bad5887.homepage.com

[Edited by Bad5887 on 04-26-2000 at 08:22 PM]

[Edited by Bad5887 on 04-26-2000 at 08:23 PM]

[vbAlex]

thanx



now it worx

[LauPro]

It is VB! Not QB!

To ©opy a file:

dim Van as string
dim Naar as string

van = "c:\command.com"
naar = "c:\backup\command.com"

filecopy Van, Naar

[vbAlex]

and i dont know, if filecopy is able to copy the running program.....