Provra da li postoji fajl

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da napravim da kad se pritisne na neko "dugme" da se onda proveri da li u folderu FAJLOVI ZA PROGRAM postoji fajl FAJL1.txt pa ako ne postoji onda da ga napravi i da u tom fajlu pise naprimer: POBEDA, a takodje i ako uopste taj folder FAJLOVI ZA PROGRAM ne postoji onda da ga napravi (sa sve ovim .txt fajlom)...? A ako fajl postoji onda da uzme taj tekst iz njega i da ga stavi u neku promenljivu

Molim vas da mi sto pre odgovorite, treba mi to hitno.

Hvala.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Evo:
Private Sub Command1_Click()     On Error Resume Next     DISK = "c:\"     folder = "Fajlovi za program"     MkDir DISK & folder         fajl = "Fajl1.txt"         Open DISK & folder & "\" & fajl For Output As #1         Print #1, "POBEDA"     Close #1         End     End Sub


Treba li ti jos nesto?
https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 30 Jul 2009 14:39

Hvala za ovaj kod, videcu da li funkcionise pa cu da javim.

Dopuna: 30 Jul 2009 16:05

Nisi me dobro razumeo. Taj folder se nalazi u istom folderu odnosno na istom mestu kao i program, ne mora uopste da bude na disku C sta ako ja to na primer prebacim na CD... Program ustvari treba ovako da funkcionise:
Kad ja ukljucim program on uzme iz Fajl1.txt neki tekst i stavi ga u tekstbox u mom programu, a ako taj Fajl1.txt uoste ne postoji onda mi pokaze greska i nece da nastavi. Ja sam sve u programu vec napravio samo imam problem sa tim da ako nema fajla on pokaze gresku.

Evo u ovom programu na primer sve funkcionise kako treba, a probaj da obrises taj folder FAJLOVI ZA PROGRAM ili samo fajl FAJL1.txt tad nece funkcionisati program, a meni treba kod za to da kad fajl (ili ceo folder) uopste ne postoji da onda napravi taj fajl(i folder ako treba)...

Hvala.

mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Private Sub Command1_Click()     Dim Privremeno As String     Dim Putanjaprograma As String     Static brojac As Integer         On Error Resume Next         Putanjaprograma = App.Path         Imedirektorijuma = "FAJLOVI ZA PROGRAM"         MkDir Imedirektorijuma         Open Putanjaprograma & "\" & Imedirektorijuma & "\FAJL1.txt" For Output As #1         brojac = brojac + 1         Privremeno = "POBEDA" & brojac         Print #1, Privremeno     Close #1     txt1.Text = Privremeno End Sub Private Sub Form_Load()     Dim A As String     On Error Resume Next     Open "FAJLOVI ZA PROGRAM\FAJL1.txt" For Input As #1         Input #1, A     Close #1         txt1.Text = A End Sub


https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 01 Avg 2009 18:27

Hvala.

Treba mi jos nesto. Kako da sacuvam vise tekstbox-ova,variabli ili neceg drugog u jednom fajlu? Nesto na foru onih baza podataka.
I kako da ucitam u program iz tog jednog fajla svaki tekstbox ili variablu na svoje mesto?

Dopuna: 01 Avg 2009 21:13

Ne znam da li sam jasno reka'o sta je moj problem, ali evo da pojasnim malo. U programu na primer imam 3 textbox-a, kliknem na neko dugme i sva tri tekstbox-a se sacuvaju u jednom fajlu. Kad opet otvorim program iz tog jednog fajla se ta tri textbox-a ucitaju.

Dopuna: 01 Avg 2009 21:15

Ne moraju to da budu textbox-ovi, mogu i neke variable(ako se tako kaze). Kako to da uradim?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 01 Avg 2009 23:53

Private Sub Command1_Click()     On Error Resume Next     Open "proba.txt" For Input As #1         brojac = 1         Do While Not EOF(1)             Line Input #1, ocitanoizfajla             If brojac = 1 Then                 Text1.Text = ocitanoizfajla             End If             If brojac = 2 Then                 Text2.Text = ocitanoizfajla             End If             If brojac = 3 Then                 Text3.Text = ocitanoizfajla             End If             brojac = brojac + 1         Loop     Close #1 End Sub Private Sub Command2_Click()     Open "proba.txt" For Output As #1         Print #1, Text1.Text         Print #1, Text2.Text         Print #1, Text3.Text     Close #1     End End Sub
https://www.mycity.rs/must-login.png

Dopuna: 01 Avg 2009 23:55

Evo na brzinu. I ako ti treba jos neka hiljada koda, samo reci nemoj da se stidis.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Hvala ti stvarno za sve, dosta si mi pomogao. Izvini ako sam te smarao.
Na osnovu ovog zadnjeg koda koj si mi dao ja sam napravio neki programcic, skoro identican. Kad sam pokuso na RUN/START da testiram program Visual Basic je poceo da baguje. Ne znam u cemu je problem...

mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ma ne smaras me. Drago mi je ako mogu nekome da pomognem. Znam kako je meni bilo.

Napravio si desetak gresaka. Imena nekih kontola(Svojstvo Name) si izmenio a zadrzao si stara imena u kodu.
Naredba open moze da upise u folder ali ne moze da stvori folder, to se radi sa mkdir. Da bi sprecio greske, dok malo bolje ne upoznas programiranje, uvek na pocetku napisi On Error Resume Next, inace ce neki put da ti se zablokira program.

Private Sub Form_Load()     On Error Resume Next     MkDir "fajlovi - D.M.P.D."     Open "fajlovi - D.M.P.D.\DMPD.DMPD" For Input As #1         brojac = 1         Do While Not EOF(1)             Line Input #1, ucitanoizfajla             If brojac = 1 Then                 txt1.Text = ucitanoizfajla             End If             If brojac = 2 Then                 txtpola.Text = ucitanoizfajla             End If             If brojac = 3 Then                 txtZzz.Text = ucitanoizfajla             End If             brojac = brojac + 1         Loop     Close #1 End Sub Private Sub SACUVAJ_Click()     On Error Resume Next     MkDir "fajlovi - D.M.P.D."     Open "fajlovi - D.M.P.D.\DMPD.DMPD" For Output As #1         Print #1, txt1.Text         Print #1, txtpola.Text         Print #1, txtZzz.Text     Close #1     End End Sub
https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Opet se javlja isti kvar...
Kas startujem program kao i uvek na Run\Start pojavi mi se prozor Project1-Microsoft Visual Basic (run) i ceo prozor bude bele boje.
Kad pokusam da iskljucim pojavi mi se prozor (a to je ovaj na slici) i kad ja idem na end now to je kraj... Je l' to ima veze sa kodom ili je neki drugi kvar u pitanju?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Moja greska. U brzini prevideo sam da kod naredbe open u slucaju on error resume next stalno ignorise gresku i pokusava ponovo. Za mkdir to nije slucaj. Mora da bude on error goto.
Samo treba ispraviti drugi red i umesto On error resume next staviti On error goto greska

Private Sub Form_Load()     On Error GoTo greska     Open "fajlovi - D.M.P.D.\DMPD.DMPD" For Input As #1         brojac = 1         Do While Not EOF(1)             Line Input #1, ucitanoizfajla             If brojac = 1 Then                 txt1.Text = ucitanoizfajla             End If             If brojac = 2 Then                 txtpola.Text = ucitanoizfajla             End If             If brojac = 3 Then                 txtZzz.Text = ucitanoizfajla             End If             brojac = brojac + 1             DoEvents         Loop     Close #1 greska: End Sub Private Sub SACUVAJ_Click()     On Error Resume Next     MkDir "fajlovi - D.M.P.D."         Open "fajlovi - D.M.P.D.\DMPD.DMPD" For Output As #1         Print #1, txt1.Text         Print #1, txtpola.Text         Print #1, txtZzz.Text     Close #1     End End Sub
https://www.mycity.rs/must-login.png