🚀 go-pugleaf

stayheavy wrote:

> Witam,
> 
> Mam male pytanie dotyczace otwierania plikow w VB. Zaznaczam ze
> wlasciwie dopiero zaczynam sie uczyc tego jezyka i prawdopodobnie
> odpowiedz na moje pytanie bedzie prosta. Wiec tak...chce otworzyc
> dowolny plik za pomoca kontrolki CommonDialog i przekazac zawartosc
> pliku do Listboxa, tak aby ta sie tam wyswietlila. Wszystko jest
> pieknie do czasu az w momencie wybierania pliku, zamiast otworz, daje
> anuluj. Pojawia sie komunikat Path/File access error. Poleglem.
> Ponizej znajduje sie kod ktorego uzylem, podpiety pod przycisk:
> 
> Private Sub Command3_Click()
>    List1.Clear
>    CommonDialog1.ShowOpen
     CommonDialog1.CancelError = True
     On Error GoTo WYBRANO_ANULUJ
>    Plik = CommonDialog1.FileName
     On Error GoTo 0
>    Open Plik For Input As #1
>    Do
>        Input #1, dane
>        List1.AddItem (dane)
>    Loop Until EOF(1)
>    Close #1
> 
WYBRANO_ANULUJ:
> End Sub
> 

pozdrawiaMM
-- 
Marcin M. Miga
"More matter with less art"