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