Private Sub sevRaster_ButtonClick(bCancel As Boolean)
  PfadLesen
  With sevRaster.FileDlg
    Dim sFile As String
    bCancel = True
    .DefExt = ".rtf"
    .Filter = "Fahrauftrag (FA*.rtf)|fa*.rtf"
    .FilterIndex = 1
    .Mode = 0
    .OverwritePrompt = True
    .title = "Fahrauftrag ..."
    .InitDir = DateiName
    .File = Me.sevRaster.Text
    sFile = .Show
    If Len(sFile) > 0 Then
      If Instr(sFile, "\") > 0 Then sFile = Mid$(sFile, InStrRev(sFile, "\") + 1)
      sevRaster.Text = sFile
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de