كيفية عمل copy لكل التقارير الموجودة ومعظم قواعد البيانات من مسار الى مسار

مرحبا

لقد وجدت طريقة ولكنها غير فعالة نظراً لانها تقوم بعمل copy لملف ملف وطبعا هذه الطريقة لا تنفع مع مئات التقارير

ولكنها تحل مشكلة نسخ قواعد البيانات

File.Copy("d:\Test\New Microsof.mdb", "c:\backup\New Microsof.mdb")

ازاى اعمل

for each (d:\Test\*.rpt)
وهنا يتم النسخ الى هذا المسار
File.Copy("d:\Test\*.rpt", "c:\backup\*.rpt")
next

الخاص بنسخ كل التقارير

شاهد المثال.. وأرجو أن تجد فيه مبتغاك ;)

WindowsApplication1.rar

11

M0OATH كتب:

شاهد المثال.. وأرجو أن تجد فيه مبتغاك ;)

اشكرك بشدة يا اخى العزيز وجزاك الله خير على مجهودك

ولكنى اعتذر لك لانى لم اوضح انى استخدم الاصدار 2003

فان استطعت ارفاق المثال مرة اخرى ب 2003 اكون شاكر لك

تحياتى

Dim From_Path As String = "d:\Test\"
Dim To_Path As String = "c:\backup\"  
Dim From() As String = IO.Directory.GetFiles(From_Path, "*.rpt")
For i As Integer = 0 To From.Length - 1
		 IO.File.Copy(From(i), To_Path & IO.Path.GetFileName(From(i)), True)
Next

M0OATH كتب:

Dim From_Path As String = "d:\Test\"
Dim To_Path As String = "c:\backup\"  
Dim From() As String = IO.Directory.GetFiles(From_Path, "*.rpt")
For i As Integer = 0 To From.Length - 1
		 IO.File.Copy(From(i), To_Path & IO.Path.GetFileName(From(i)), True)
Next

رائع انها تعمل

شكرا لك يا اخى M0OATH وجزالك الله عنا كل خير

تحياتى

العفو اخوي

رائع أخى M0OATH

الرائع ردك