Dim sFile As String
 
On Error Resume Next
With Me.CommonDialog
  .CancelError = True
  .Filter = "Textdateien (TXT)|*.txt|HTML-Dateien (HTML)|*.html"
  .Filename = "Test.txt"
  .InitDir = App.Path
  .ShowSave
  If Err = 0 Then
    sFile = .Filename
  End If
End With
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de