Keskustelu: Ohjelmointikysymykset: VB6: Tiedoston avaus? (VB)

käytän tällaista koodia

Private Sub open_Click()


Open App.Path & "\pelit\tallennus.txt" For Binary As #1
Get #1, , Pelaaja
Get #1, , Sukset
Get #1, , Monot
Get #1, , Divisioona
Close #1
End Sub

niin miten saisin tuohon sillain että voisin valita minkä savetuksen otan.. eli se listaisi kaikki .ahs tiedostot riviin ja siitä voisi valita ?

Lisää lomakkeelle FileListBox, jonka polku on App.Path & "\pelit". Aseta File1:n Pattern = *.ahs. Voit valita avattavan tiedoston File1:stä:

Private Sub File1_Click()
   filu = File1.Path & "\" & File1.Filename
End Sub

Private Sub open_Click()
   Open filu For Binary As #1
   ...
End Sub

Minne/miten tuo lisboxin polku pistetään ?

joo samaa kysyisin ?

Sitä ei löydy olion ominaisuuksista joten se määritellään yksinkertaisesti:

File1 = polku

Esim.

File1 = "C:\pelit"

Ja huomaa sitten, ettei se olet sama kuin ListBox vaan kyseessä on FileListBox.

Suunnilleen noin. Koodin voi kirjoittaa esim. Form_Load-tapahtumaan:

Private Sub Form_Load
   File1.path = App.Path & "\pelit"
End Sub

FileListBoxista ei mielestäni löytynyt Path-ominaisuutta, mutta huomasin, että pelkkä File1 toimii samalla tavalla kuin File1.path.

koita Dir() funktiota _jos_ et tartte sitä listboxia

FileListBoxin Path-ominaisuus on aseteltavissa vain ajon aikana, siksi sitä ei ole ominaisuusikkunassa. Näyttää olevan myös oletusominaisuus, jolloin File1 on sama kuin File1.Path

Valittaa jotain tuosta

File1.Path = App.Path & "\pelit"

rivistä nii mikähän olisi vikana?
Koko koodi menee näin:

Private Sub Form_Load()
  File1.Path = App.Path & "\pelit"
End Sub

Private Sub File1_Click()
  filu = File1.Path & "\" & File1.FileName
End Sub

Private Sub open_Click()
  Open filu For Binary As #1
End Sub

Onhan pelit-kansio olemassa, kun käynnistät ohjelman. Ellei ole, laita käsky vasta sen jälkeen, kun pelit-kansio on perustettu

on kansio olemassa.. :(

edit: sori... oli vain exen kansiossa.. ei projektin.. :)