https://barnamenevis.org/showpo...3&postcount=86


فایلها را در مسیرC:\CopiedFolder کپی میکند :
کد:




Imports System.IO





Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        Dim fbd As FolderBrowserDialog = New FolderBrowserDialog()

        fbd.Description = "Find Folder to Copy."

        If fbd.ShowDialog() = DialogResult.OK Then



            Dim files() As String = Directory.GetFiles(fbd.SelectedPath)

            Directory.CreateDirectory("C:\CopiedFolder")

            Dim i As Integer

            For i = 0 To files.Length



                Dim tmpFileExt As String = Path.GetExtension(files(i))

                Dim tmpFileName As String = Path.GetFileNameWithoutExtension(files(i))

                File.Copy(files(i), "C:\CopiedFolder\" + tmpFileName + tmpFileExt, True)

            Next

        End If

    End Sub