کپی گروهی فایلها و پوشه ها

[(سیدشریفی)]

با سلام خدمت دوستان گرامی
چطور میتوان فایلها و پوشه ها و زیر پوشه ها را از محل مشخصی به صورت دسته جمعی به محل مشخص دیگر کپی کرد .
با این فرض که ما فقط مسیر را داریم و نام فایلها و پوشه ها و زیر پوشه ها را نمیدانیم .
مثل این :

Copy a:\*.* c:\Ali
:roll:

[Farhad.B.S]

در حال حاظر کلاس Directory فاقد متد Copy است و قراره که این متد در ورژن بعدی قرار بگیره ...
فعلا میتونید از این پراسیجر استفاده کنید :


Public Sub CopyDirectory(ByVal Source As String, ByVal Destination As String)
Dim Files As String()
Dim Item As String

If (Destination.Chars(Destination.Length - 1) <> Path.DirectorySeparatorChar) Then _
Destination += Path.DirectorySeparatorChar

If (Not Directory.Exists(Destination)) Then _
Directory.CreateDirectory(Destination)

Files = Directory.GetFileSystemEntries(Source)

For Each Item In Files
If (Directory.Exists(Item)) Then
CopyDirectory(Item, Destination + Path.GetFileName(Item))
Else
File.Copy(Item, Destination + Path.GetFileName(Item))
End If
Next

End Sub

[(سیدشریفی)]

آقا فرهاد از جوابی که دادید خیلی ممنون
مشکل من حل شد
:تشویق:

[bashir_nashi]

با سلام
من نتونستم از این روال استفاده کنم .
از چند جاش ایراد میگیره
1 - از if اول قسمت <> اصلا این چی هست و چکار میکنه ؟
2 - path رو هم تعریف نکرده و نمی دونم چی هست .

اگه ممکنه راهنماییم کنین

[(سیدشریفی)]

شکل درست این سطر به صورت زیر میباشد



If (Destination.Chars(Destination.Length - 1) <> Path.DirectorySeparatorChar) Then



که احتمالا در تغییرات اخیر سایت بعضی از کاراکترها خراب شده
همچنین
Imports System.IO
یادتون نره
:چشمک:
اگر باز هم مشکلی بود در خدمتم