[Sajad]

السلام عليكم

استخدم هذه الدالة لنسخ المجلد:

PHP كود :

Private Sub copydir(ByVal source As String, ByVal dest As String)
        Dim dinfo As New DirectoryInfo(dest)
        If (Not dinfo.Exists) Then
            Directory.CreateDirectory(dest)
        End If

        dinfo = New DirectoryInfo(source)
        Dim d() As DirectoryInfo = dinfo.GetDirectories()
        Dim finfo As FileInfo() = dinfo.GetFiles()

        For Each f As FileInfo In finfo
            f.CopyTo(Path.Combine(dest, f.Name), False)
        Next

        For Each dd As DirectoryInfo In d
            copydir(Path.Combine(source, dd.Name), Path.Combine(dest, dd.Name))
        Next
    End Sub 


والاستدعاء يكون بالCop هكذا:

PHP كود :

Dim f As New CopyTo()
        f.ShowDialog()
        If ListView1.SelectedItems(0).Text.Contains(".") Then
            Dim info As New FileInfo(ListView1.SelectedItems(0).Text)
            File.Copy(Application.StartupPath & "/sajad/" & ListView1.SelectedItems(0).Text, f.PP & info.Extension)
            MessageBox.Show("تم النسخ الى المسار التالي" & f.PP)
        Else
            copydir(Application.StartupPath & "/sajad/" & ListView1.SelectedItems(0).Text, f.PP
        End If 


بالتوفيق ان شاءالله