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

Ne kopiranje programa ako je vec kopiran!! (VB program) 03.05.2005. u 14:48 · pre 261 mesec #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 14:59 · pre 261 mesec #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 15:38 · pre 261 mesec #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 12:50 · pre 261 mesec #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 19:13 · pre 261 mesec #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 21:41 · pre 261 mesec #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 12:05 · pre 261 mesec #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 18:01 · pre 261 mesec #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 18:03 · pre 261 mesec #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

Potpis

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

Forum kao aplikacija na telefonu

Srodne teme