Datei öffnen mit dem CommonDialog Steuerelement VB-Version:  VB5, VB6
	Views:  2.264

Sie möchten eine Datei mit dem Standard-Dialogfeld öffnen?

Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdOpen) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code:

Private Sub cmdOpen_Click()
  ' wird im "CommonDialog" auf "Abbrechen" geklickt,
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  Dim F As Integer
  Dim AllText As String
  Dim LineOfText As String
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    ' Filter setzen - hier wird festgelegt, mit welchem Format
    ' eine Datei geöffnet wird.
    .Filter = "Textdateien (*.txt)|*.txt"
 
    ' Dialogfeld Öffnen anzeigen
    .ShowOpen
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Input As #F
      ' Zeilen aus Textdatei einlesen und in Variable AllText speichern
      Do Until EOF(F)
        Line Input #F, LineOfText
        AllText = AllText & LineOfText & vbCrLf
      Loop
      Close #F
 
      ' Inhalt der Variable AllText im Textfeld ausgeben
      Text1.Text = AllText
    End If
  End With
End Sub

Starten Sie Ihr Programm, klicken Sie auf den CommandButton und öffnen Sie eine Textdatei.