بسم الله الرحمن الرحيم
كيفكم يا شباب
جابلكم اليوم كود شبة نادر
ولا اقولكم كودين
بس شو : الهن نفس العمل بطريقتين
واحد منهن فيو خلل
هسع بقولكم شو شغلة الكود
شغلة البرنامج نسخ المجلد بكاملة
هذا الكود فيو مشكلة
انو اذا كان المجلد الرئيسي يلي مثلا على e عربي ما بينسخ المجلد
كود:
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfolder "E:\*.*", "F:\", True
fs.COPYFILE "E:\*.*", "F:\", True
أما هذا الكود شغال 100% ينسخ المجلدات العربية و غير العربية
كود:
Dim mfm$, mffm&
mfm = "cmd /c xcopy " & "e" & ": " & "f" & ": " & "/s"
mffm = Shell(mfm, vbHide)
ايوا هسع اجا طلبي
شباب بدي كود نسخ مجلد بس الو ميزة
اذا لقا داخل المجلد ملف فيو عطل ما بينسخ لا يقطع التحميل
يتخطى التحمل و يتابع النسخ
و شكرا
كود شبة نادر عل نت+طلب صغير
رد: كود شبة نادر عل نت+طلب صغير
