01-10-12, 03:35 PM
السلام عليكم ورحمة الله وبركاته
اخواني هذا كود يقوم بنقل الملفات من مجلد من C الى مجلد في الـ D
لكن الكود يقوم بنسخ فقط الملفات وانا اريد نقل كل ما يوجد في المجلد نسخة ونقله الى المجلد الموجود في الـ D
اخواني هذا كود يقوم بنقل الملفات من مجلد من C الى مجلد في الـ D
لكن الكود يقوم بنسخ فقط الملفات وانا اريد نقل كل ما يوجد في المجلد نسخة ونقله الى المجلد الموجود في الـ D
PHP كود :
Private Sub CopeFileAndFolder()
Dim T_True As Boolean = False
Dim FOLDERDATE As String
FOLDERDATE = Me.lblDateToDay.Text
Dim drP As New DirectoryInfo("C:\P\WORK\")
Dim drT As New DirectoryInfo("C:\T\WORK\")
Dim filesInfoP() As FileInfo = drP.GetFiles("*.*", SearchOption.AllDirectories)
Dim filesInfoT() As FileInfo = drT.GetFiles("*.*", SearchOption.AllDirectories)
For Each f As FileInfo In filesInfoP
If Not My.Computer.FileSystem.DirectoryExists("D:\XBACKUP\P\" & FOLDERDATE & "\work\") Then My.Computer.FileSystem.CreateDirectory("D:\XBACKUP\P\" & FOLDERDATE & "\work\")
f.CopyTo("D:\XBACKUP\P\" & FOLDERDATE & "\work\" & f.Name & "", True)
T_True = True
Next
For Each f As FileInfo In filesInfoT
If Not My.Computer.FileSystem.DirectoryExists("D:\XBACKUP\T\" & FOLDERDATE & "\work\") Then My.Computer.FileSystem.CreateDirectory("D:\XBACKUP\T\" & FOLDERDATE & "\work\")
f.CopyTo("D:\XBACKUP\T\" & FOLDERDATE & "\work\" & f.Name & "", True)
T_True = True
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CopeFileAndFolder()
End Sub