نسخ الملفات بقيود

اخي العزيز : يجب ان تجعل سؤالك اكثر تفصيلا ودقة

اذ لم تحدد عدد الملفات المراد نسخها ! فهل تريد نسخ كل الملفات التي ينطبق عليها هذا الشرط او اول ملف ينطبق عليه ذلك الشرط فقط ؟

فاذا كنت تريد نسخ كل الملفات التي تحقق هذا الشرط فاليك هذا الكود :

Dim Nf As Integer
Dim File As String
Dim Fldr As String
Dim Cond As String
'The Folder that you want the copied files to be there
Fldr = "C:tempo"
If Right(Fldr, 1) <> "" Then Fldr = Fldr + ""
'The condition of the files to be copied
'Files under the windows folder that end with ".exe"
Cond = "C:Windows*.exe"
Nf = 0
'Find the files with condition
File = Dir(Cond, vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While File <> ""
'Copy files
FileCopy Left(Cond, InStrRev(Cond, "")) & File, Fldr & File
'Number of found files.
Nf = Nf + 1
'Find another files
File = Dir
Loop
MsgBox Str(Nf) & " Files were copied."

ملاحظة : كي يعمل هذا البرنامج تماما قم بعمل دليل تحت السي مباشرة وسترى كل الملفات التي ينطبق عليها الشرط فيه بعد تنفيذ الكود

شكراا اخوي

نبهان المضلع

اجرب الكود واردلك

إن شاء الله يضبط

جربت الكود ولا ضب لاني مافهمته مضبوط

يعني يمكن الخلل مو بلكود يمكن بتطبيقي

انا اريده ينسخ اول ملف فقط اول ملف يحقق الشرط او له الثلاث حرف الاولى الي انا ادور عليها ينسخه

وشكراا على حسن التجاوب