Click here to Skip to main content
13,344,508 members (49,783 online)
Rate this:
Please Sign up or sign in to vote.
See more:
Hi all,

I have 2 textboxes. First one for source file, second one for destination folder.

When I click source button, an openfiledialog appear for me to select file. And after I click open button, it should put the multiselect file into first textbox. Then I click select destination folder button and it will open folderbrowserdialog to select which dest. folder..but it failed to copy since it appear 1 path in the first textbox. Here are my code, please someone tell me the right code..

Private Sub btnSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectFile.Click
        Dim strFileNameAndPath As String = SelectFileSource()
        txtSource.Text = strFileNameAndPath
    End Sub

    Private Sub btnSelectFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectFolder.Click
        Dim strFolderPath As String = SelectFolderDest()
        txtDest.Text = strFolderPath
    End Sub

    Private Sub btnStartCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartCopy.Click
        For Each filePath As String In txtSource.Text
            My.Computer.FileSystem.CopyFile(txtSource.Text, txtDest.Text)
    End Sub

#Region "PATH FILE"
    Private Function SelectFileSource() As String
        Dim strFileName = ""
        Dim fileDialogBox As New OpenFileDialog()
        fileDialogBox.Title = "Select file to copy | " & GlobVars.strFileDesc
        fileDialogBox.Multiselect = True
        fileDialogBox.CheckPathExists = True
        fileDialogBox.Filter = "All Files (*.*)|*.*"
        fileDialogBox.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyComputer)

        If (fileDialogBox.ShowDialog() = DialogResult.OK) Then
            strFileName = fileDialogBox.FileName
        End If
        Return strFileName
    End Function

    Private Function SelectFolderDest() As String
        Dim strFolderPath = ""
        Dim MyFolderBrowser As New System.Windows.Forms.FolderBrowserDialog
        MyFolderBrowser.Description = "Select destination folder for " & GlobVars.strFileDesc
        MyFolderBrowser.RootFolder = Environment.SpecialFolder.MyComputer
        MyFolderBrowser.ShowNewFolderButton = True
        Dim dlgResult As DialogResult = MyFolderBrowser.ShowDialog()

        If dlgResult = Windows.Forms.DialogResult.OK Then
            strFolderPath = MyFolderBrowser.SelectedPath
        End If
        Return strFolderPath
    End Function
#End Region

At Button Start Copy, an exception occur "Could not complete operation since a directory already exists in this path 'C:\Program Files\Data'." in
My.Computer.FileSystem.CopyFile(txtSource.Text, txtDest.Text)
Posted 6-Nov-12 21:51pm

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy |
Web03 | 2.8.180111.1 | Last Updated 7 Nov 2012
Copyright © CodeProject, 1999-2018
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100