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

Ne kopiranje programa ako je vec kopiran!! (VB program) 03.05.2005. u 13:48 · pre 261 meseci #1

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

Potpis

assumption is the mother of all screwups
Windows

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 03.05.2005. u 13:59 · pre 261 meseci #2

Stavi

Code:

On Error Resume Next

Potpis

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

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 03.05.2005. u 14:38 · pre 261 meseci #3

A može i drugačije:

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

Potpis

_{In a game of chess you must never let your opponent see your pieces - Zap

Brannigan}

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 06.05.2005. u 11:50 · pre 261 meseci #4

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..

Potpis

assumption is the mother of all screwups
Windows

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 06.05.2005. u 18:13 · pre 261 meseci #5

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

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 06.05.2005. u 20:41 · pre 261 meseci #6

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.

Potpis

-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

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 16.05.2005. u 11:05 · pre 261 meseci #7

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

Potpis

assumption is the mother of all screwups
Windows

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 16.05.2005. u 17:01 · pre 261 meseci #8

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

Potpis

-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

Re: Ne kopiranje programa ako je vec kopiran!! (VB program) 19.05.2005. u 17:03 · pre 260 meseci #9

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]}

Potpis

...to follow the path:
look to the master,
follow the master,
walk with the master,
see through the master,
become the master...

Srodne teme