24-03-17, 10:23 AM
(آخر تعديل لهذه المشاركة : 24-03-17, 10:24 AM {2} بواسطة الخير طهوري.)
السلام عليكم
أضع بين أيديكم كود نسخ محتويات مجلد في مجلد آخر
يوضع الكود في حدث كوموند
ويبقى عليكم اقتراح كيفيات تنفيذ هذا الكود
تحياتي
أضع بين أيديكم كود نسخ محتويات مجلد في مجلد آخر
يوضع الكود في حدث كوموند
ويبقى عليكم اقتراح كيفيات تنفيذ هذا الكود
كود :
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFolder Text1, Text2 ', True
Set fso = Nothing
MsgBox "Êã äÓÎ ãÍÊæíÇÊ ÇáãÌáÏ", vbInformation, "ÊäÈíå"
Text1 = ""
Text2 = ""تحياتي