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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=6271)

لنسخ الملفات - RaggiTech - 17-10-12

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

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

VB.NET

كود :
Dim UIOption As Microsoft.VisualBasic.FileIO.UIOption
Private Sub CopieFichier(ByVal FileSource As String, ByVal FileDestination As String)
If My.Computer.FileSystem.FileExists(FileSource) Then

My.Computer.FileSystem.CopyFile(FileSource, FileDestination, UIOption.OnlyErrorDialogs, FileIO.UICancelOption.ThrowException)
Else
MsgBox("Le fichier source n'existe pas")
End If
End Sub
c#

كود :
public static void CopyFile(string srcFile, string destFile, bool overwrite)
{
if (File.Exists(srcFile)) File.Copy(srcFile, destFile, overwrite);
else throw new FileNotFoundException("File not found");
}