Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET
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)
        Next
    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 20:51pm

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

  Print Answers RSS
0 OriginalGriff 365
1 Prakriti Goyal 177
2 Sergey Alexandrovich Kryukov 155
3 jlopez788 144
4 _Amy 110
0 OriginalGriff 6,837
1 Sergey Alexandrovich Kryukov 5,559
2 Maciej Los 3,479
3 Peter Leow 3,323
4 DamithSL 2,505


Advertise | Privacy | Mobile
Web04 | 2.8.140721.1 | Last Updated 7 Nov 2012
Copyright © CodeProject, 1999-2014
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