🚀 go-pugleaf

Użytkownik "stayheavy" <stayheavy@interia.pl> napisał w wiadomości
news:djjdt9$jog$1@nemesis.news.tpi.pl...

> [...]  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
>     Plik = CommonDialog1.FileName

Jeśli w oknie dialogu plik nie zostanie wybrany, to polecenie:
CommonDialog1.FileName zwraca pusty string (Plik = ""),
czego konsekwecją jest błąd polecenia Open.
Musisz więc sprawdzić, czy zmienna Plik zawiera ścieżkę
dostępu czy też string pusty. W tym drugim przypadku należy
przerwać działanie procedury:

    If Plik = "" Then
        Exit sub
    End if

Sprawdzenie warunku If Plik = "" Then jest intuicyjne
i poprawne, lecz bardziej eleganckie, a przy tym znacznie
szybsze będzie sprawdzenie warunku:

    If LenB(Plik) = 0 Then
        Exit Sub
    End if

czyli sprawdzenie długości (w bajtach) stringu Plik.

>     Open Plik For Input As #1
>     Do
>         Input #1, dane
>         List1.AddItem (dane)
>     Loop Until EOF(1)
>     Close #1
>
>  End Sub


Robert