'LISTING 16.1  16LIST01.TXT - Wybr pliku dyskowego


Private Sub cmdButton_Click ()
  dlgCommon.Filename = ""
  dlgCommon.Filter = "Ikony (*.ico)|*.ico|Wszystkie pliki(*.*)|*.*"
  dlgCommon.FilterIndex = 1
  dlgCommon.Flags = cdlOFNFileMustExist Or cdlOFNFPathMustExist
  dlgCommon.Action = 1
  Text1.Text = dlgCommon.Filename
End Sub


