کپی یک فولدر به یه فولدر دیگر

[VB.2000]

سلام
من برای کپی فولد (نه فایل های فرمت دار) میخواستم با این دستور انجامش بدم :
My.Computer.FileSystem.CopyFile("D:\File1\file2", "\E BOOK\visual basic\sql\my sql")

الان من میخوام پوشه ی FILE2 به پوشه ی my sql کپی شه ...


اما نمـــــــــــــــــــــــ ــــــــــــیشــــــــه :عصبانی++:

[h_a_m_i_d]

دوست عزیز نوشتی
copyfile فایل میشه یک دونه فایل با فرمت خاص
پوشه میشه folder
روش انتقال هم کل فایل های داخل پوشه کپی شود و بعد از ساخت
پوشه ای که باید به ان انتقال داده شود
تک تک فایل ها کپی شود

[shahryari]

سلام
این روش به ذهنم رسید ببین به دردت میخوره
Dim f_1 As String = "D:\File1\file2"
Dim f_2 As String = "E:\BOOK\visual basic\sql\my sql"
If IO.Directory.Exists(f_2) = False Then
IO.Directory.CreateDirectory(f_2)
End If
For Each files In My.Computer.FileSystem.GetFiles(f_1)
Dim file_name As String = IO.Path.GetFileName(files)
IO.File.Copy(files, f_2 & "\" & file_name)
Application.DoEvents()
Next

اگرهم منظور فقط کپی کردن هست آنگاه داریم:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim f_1 As String = "D:\File1\file2"
Dim f_2 As String = "E:\BOOK\visual basic\sql\my sql\file2"
My.Computer.FileSystem.CopyDirectory(f_1, f_2, True)
End Sub