منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ مجلد مع جميع محتوياته - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : نسخ مجلد مع جميع محتوياته (/showthread.php?tid=6279)



نسخ مجلد مع جميع محتوياته - RaggiTech - 17-10-12

كاتب الموضوع : Boutemine Oualid

السلام عليكم و رحمة الله و بركاته

سي شارب

كود :
//using System.IO;
public static void CopyDir(string sourceDir, string destDir)
{
DirectoryInfo dir = new DirectoryInfo(sourceDir); if (dir.Exists)
{
string realDestDir;
if (dir.Root.Name != dir.Name)
{
realDestDir = Path.Combine(destDir, dir.Name);
if (!Directory.Exists(realDestDir))
Directory.CreateDirectory(realDestDir);
}
else realDestDir = destDir;
foreach (string d in Directory.GetDirectories(sourceDir))
CopyDir(d, realDestDir);
foreach (string file in Directory.GetFiles(sourceDir))
{
string fileNameDest = Path.Combine(realDestDir, Path.GetFileName(file));
//if (!File.Exists(fileNameDest))
File.Copy(file, fileNameDest, true);
}
}
}
فيبي .نت

كود :
Private Sub CopyDirectory(ByVal sourceDirName As String, ByVal destDirName As String, Optional ByVal overwrite As Boolean = False)
If Not String.Equals(sourceDirName, destDirName) And System.IO.Directory.Exists(sourceDirName) Then
If Not System.IO.Directory.Exists(destDirName) Then System.IO.Directory.CreateDirectory(destDirName)
For Each Directory As System.IO.DirectoryInfo In New System.IO.DirectoryInfo(sourceDirName).GetDirectories()
Call CopyDirectory(Directory.FullName, System.IO.Path.Combine(destDirName, Directory.Name), overwrite)
Next
For Each File As System.IO.FileInfo In New System.IO.DirectoryInfo(sourceDirName).GetFiles()
If Not System.IO.File.Exists(System.IO.Path.Combine(destDirName, File.Name)) OrElse overwrite Then
System.IO.File.Copy(File.FullName, System.IO.Path.Combine(destDirName, File.Name), overwrite)
End If
Next
End If
End Sub