السلام عليكم
عندي مجلدات كثيرة في كمبيوتري ودي اقوم بترتيبها (h)
فأتتني فكرة عمل برنامج ينسخ الملفات والمجلدات
فبداءت بتصميمه فلم استطع الا لنسخ الملفات فقط بدالة :wacko:
VBA.FileCopy
اما المجلدات فلم اعرف لها دالة لنسخها :( مع اني بحثت كثيرا في هذا المنتدى الرائع
فأرجوا منكم مساعدتي وجزاكم الله الف خير
اخوكم
السلام عليكم
اخى الكريم nbnb
يمكنك قراءه هذا الموضع به طريقه للتعامل مع المجلدات
ولو فى اى سؤال انا وباقى الأعضاء موجودين
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
انشيء فورم جديد اضف اليها text1
file1
command1
اضف الكود التالي الى الزر
' اولا انشيء المجلد الجديد
Set fso = CreateObject("Scripting.FileSystemObject")
NewPath = (App.Path & "\" & Text1.Text)
fso.CreateFolder NewPath
'انسخ الملفات من المجلد القديم الى الجديد
File1.Path = App.Path & "\blank" 'المجلد المصدر
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
FileCopy App.Path & "\blank\" & File1.FileName, NewPath & "\" & File1.FileName
Next iوالله رد رائع :D :D وأعضاء أروع
جزاك الله خير يأخي GENIUS-IT جعلها الله في ميزان حسناتك و أنت يأخي Qousay جزاكم الله كل خير
وزادكم الله علما وعمل :)
ومشكورين على هذا الرد السريع
أخوكم
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…