[es] - Ne kopiranje programa ako je vec kopiran!! (VB program)

th33nd

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

+1 Profil

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

^{03.05.2005. u 13:48 - pre 230 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

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

^{03.05.2005. u 13:59 - pre 230 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

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

^{03.05.2005. u 14:38 - pre 230 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

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

^{06.05.2005. u 11:50 - pre 230 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: 12848

+4784 Profil

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

^{06.05.2005. u 18:13 - pre 230 meseci}

Nemoj koristiti On Error Resume Next. Los je taj savet.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

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

^{06.05.2005. u 20:41 - pre 230 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

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

^{16.05.2005. u 11:05 - pre 230 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

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

^{16.05.2005. u 17:01 - pre 230 meseci}

Code:
If Dir("C:\Test\Text.exe") = "" Then
MkDir "C:\Test"
FileCopy App.Path & "\test.exe", "C:\Test\test.exe"
End If

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

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

^{19.05.2005. u 17:03 - pre 230 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