نقل فولد ومحتوياته عبر الاكسيس

عليكم السلام

استخدم MDir لإنشاء الفولدر و *.* لنقل كل الفايللات في الـ CopyFile

:happy:

شكرا لاهتمامك بالموضوع

ممكن توضح هذا بمثال بدون زحمة

وجزاك الله كل خير

لو كان لديك فولدر في الـ C بغسم temp و تريد نسخه بكل محتوباته إلى فولدر جديد بإسم temp1 في الـ C :

هذا الكود يقوم بإنشاء فولدر بإسم temp1 في حالة انه لم يكن موجودا :

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\temp1") = False Then MkDir "C:\temp1"

ثم تستخدم هذا الكود لنقل كل الملفات من temp إلى temp1 :

FileCopy "C:temp\*.*" , "C:temp1\*.*"

:cool:

طريقتك صحيحة أخ sahob

و لكن يمكننا النقل مباشرة

Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 fso.CopyFolder "c:\last", "e:\last"
[\code]

اخواني الاعزاء اشكركم وبارك الله بكم

لكن اعذروني لم يضبط معاي ارجو منكم تزويدي بمثال

وجزاكم الله كل خير

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

الطريق الاولى لم تنجح معي لكن الطريقة الثانية الحمد لله تمت بنجاح

واشكر مرة اخرى جميع الاخوة

وجزاكم الله كل خير