Dim theFolderBrowser As New FolderBrowserDialog
With theFolderBrowser
  .Description = "Please select a folder for the download."
  .ShowNewFolderButton = False
  .RootFolder = System.Environment.SpecialFolder.Desktop
  .SelectedPath = _
    My.Computer.FileSystem.SpecialDirectories.Desktop
  If .ShowDialog = Windows.Forms.DialogResult.OK Then
    My.Computer.FileSystem.CopyFile( _
      Application.StartupPath & "\testtext.txt", _
      .SelectedPath & "\testtext.txt", _
      Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, _
      FileIO.UICancelOption.DoNothing)
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de