Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ne kopiranje programa ako je vec kopiran!! (VB program)

[es] :: Visual Basic 6 :: Ne kopiranje programa ako je vec kopiran!! (VB program)

[ Pregleda: 4828 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

th33nd

Član broj: 45644
Poruke: 152
*.dial.InfoSky.Net.



+1 Profil

icon Ne kopiranje programa ako je vec kopiran!! (VB program)03.05.2005. u 13:48 - pre 208 meseci
Ako naslov nije adekvatan, izvinjavam se..stvarno nisam znao kako drugacije

E ovako..moje pitanje je sledece:
-Napravio sam neki progie (u VB naravno) i kada se startuje, on napravi jedan poseban
direktorijum i iskopira se u taj isti. E,sad,kada se drugi put startuje taj program, direktorijum koji on pravi vec postoji i vec iskopiran tamo gde treba i izbacuje gresku

Run-time error '424'
Object required

Kako da namestim, da ako vec postoji direktorijum i ako je vec iskopiran, da to vise ne radi, odnosno samo da kada se prvi put startuje napravi shta treba. AKo me neko razume.

primer: progie se zove TEST i pri stratovanju napravi dir. C:\Test, i iskopira se u taj dir. pod nazivom TEST.exe. E, svaki put kad ga startujem on ce pokusati da napravi C:\Test i da se iskopira u taj folder, ali naravno nece uspeti jer folder vec postoji i Test.exe je iskopiran tu i izbacice mi gore navedeni error. please help

hvala unapred


assumption is the mother of all screwups
Windows
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)03.05.2005. u 13:59 - pre 208 meseci
Stavi

Code:

On Error Resume Next

A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Dark Icarus
Goran Lalić
Beograd

Član broj: 19775
Poruke: 428
*.nat-pool.bgd.sbb.co.yu.



+2 Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)03.05.2005. u 14:38 - pre 208 meseci
A može i drugačije:

Code:
If Dir("C:\Test\Text.exe") = "" Then 
   ' fajl ne postoji; iskopiraj ga
Else
   'fajl postoji
End If

In a game of chess you must never let your opponent see your pieces - Zap
Brannigan
 
Odgovor na temu

th33nd

Član broj: 45644
Poruke: 152
*.dial.InfoSky.Net.



+1 Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)06.05.2005. u 11:50 - pre 208 meseci
na ovo mi izbacuje opet gresku!

Code:
Private Sub Form_Load()
Dim Win As String
Win = Environ("WinDir") & "\"
MkDir Win & "\TEST"
On Error Resume Next
FileCopy App.Path + "\" + App.EXEName + ".exe", Win & "TEST\PROGRAM.exe"
On Error Resume Next
End Sub


Run-time error '75':

Path/File access error


Ovo drugo nisam jos probao..
assumption is the mother of all screwups
Windows
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12819



+4754 Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)06.05.2005. u 18:13 - pre 208 meseci
Nemoj koristiti On Error Resume Next. Los je taj savet.
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)06.05.2005. u 20:41 - pre 208 meseci
Iskoristi ovo što ti je Dark Icarus napisao i nemaš problema.U ovom tvom slučaju ti najverovatnije javlja grešku zato što ne postoji source fajl ili zato što već postoji destination fajl.On Error Resume Next nema smisla koristiti u ovom slučaju, njega koristi samo onda kada si siguran koja će se greška javiti i kada znaš da ta greška neće uticati na dalji tok izvođenja aplikacije.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

th33nd

Član broj: 45644
Poruke: 152
*.dial.InfoSky.Net.



+1 Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)16.05.2005. u 11:05 - pre 208 meseci
E koristio sam ovo drugo, juce sve je radilo bez problema, nikakvu gresku nije prikazivao.
Danas ispisuje :-) ne znam sta se desava al nije bitno. Nego to za kopiranje fajla radi, ne izbaci nishta, al kad kopira ovaj folder onda izbaci neki shit. jel moze neko da napise chaskom code znaci da na klik na dugme napravi folder nagde na hdd i u njega ubaci neki fajl (tekst.txt). ako folder i fajl u njemu vec postoje da ne radi nishta i da nema greske. hvala unapred
assumption is the mother of all screwups
Windows
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)16.05.2005. u 17:01 - pre 208 meseci
Code:
If Dir("C:\Test\Text.exe") = "" Then 
   MkDir "C:\Test"
   FileCopy App.Path & "\test.exe", "C:\Test\test.exe"
End If

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

Jimi Hex
Zoran Bradilkovic
Cistac ulica, ponekad kaskader
Veliki Siljigovac

Član broj: 30335
Poruke: 82
*.ptt.yu.

Sajt: www.jimihex.cjb.net


Profil

icon Re: Ne kopiranje programa ako je vec kopiran!! (VB program)19.05.2005. u 17:03 - pre 208 meseci
mozes preko FSO-a

Code:
dim fso
set fso=CreateObject("Scripting.FileSystemObject")
if fso.FolderExist("C:\TEST") = False then
mkdir "C:\TEST"
end if
if fso.FileExist("C:\TEST\Test.exe") = False then
FileCopy app.path & "\" & app.exename, "C:\TEST\TEST.exe"
end if


[Ovu poruku je menjao Aleksandar Vasic dana 14.06.2009. u 12:32 GMT+1]
...to follow the path:
look to the master,
follow the master,
walk with the master,
see through the master,
become the master...
 
Odgovor na temu

[es] :: Visual Basic 6 :: Ne kopiranje programa ako je vec kopiran!! (VB program)

[ Pregleda: 4828 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.