'Listing 22.4 22LIST04.TXT -- Rozszerzona wersja procedury wprowadzania nazwy katalogu

Private Sub Command1_Click()
  Directory = InputBox ("Zapamitaj pliki w katalogu:", "Wybierz katalog", "C:\VB4")

  If Directory <> "" Then
   MsgBox "Wybrano katalog :" & Directory
  Else
   MsgBox "Nie podano nazwy katalogu - pliki nie zostan zachowane" 
  End If 
End Sub

