'Listing 22.1 -- 22LIST01.TXT -- Uycie instrukcji warunkowej do wykrycia rezygnacji w wywoaniu funkcji InputBox

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

  If Directory <> "" Then
   MsgBox "Wybrano katalog :" & Directory
  End If 
End Sub
