[أبو عبدالله الحلواني]

السلام عليكم ورحمة الله وبركاته
لدي ملفات بالرسورسز اريد ان استخدم for each لنسخها الي فولدر علي جهاز المستخدم
استخدم هذا الكود لنسخ ملف واحد من الرسورسز في كل مرة 

كود :

File.WriteAllBytes(strDestination & strFile, My.Resources.strFileName, True)

اريد المساعدة في الحصول علي العدد الكلي للملفات أو ان ادور علي كل الملفات داخل الروسورسز

باستخدام for each  أو for 

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

[march]

السلام عليكم ورحمة الله وبركاته
لدي ملفات بالرسورسز اريد ان استخدم for each لنسخها الي فولدر علي جهاز المستخدم
استخدم هذا الكود لنسخ ملف واحد من الرسورسز في كل مرة 

كود :

File.WriteAllBytes(strDestination & strFile, My.Resources.strFileName, True)

اريد المساعدة في الحصول علي العدد الكلي للملفات أو ان ادور علي كل الملفات داخل الروسورسز

باستخدام for each  أو for 

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

كود :

Dim res = My.Resources.ResourceManager.GetResourceSet(CultureInfo.CurrentCulture, True, True)
For Each txt In res.OfType(Of Object)().Where(Function(x) TypeOf x.Value Is String)
   File.WriteAllText(strDestination & strFile, txt.value)
Next

[أبو عبدالله الحلواني]

PHP كود :

Dim res = My.Resources.ResourceManager.GetResourceSet(CultureInfo.CurrentCulture, True, True)
For Each txt In res.OfType(Of Object)().Where(Function(x) TypeOf x.Value Is String)
   File.WriteAllText(strDestination & strFile, txt.value)
Next 


عند تجربة الكود ظهر لي خطأ عند الجملة 

PHP كود :

res.OfType(Of Object) 


مفاد رسالة الخطأ أن OfType  ليست من عناصر ResourceSet 
وقد استبدلت OfType  بــ getType  أيضا ظهر خطأ مختلف انه لا يوجد برامترات لـ getType

آسف علي كثرة الأسئلة ولكن هكذا دائما المبتدئين متعبين 

ملاحظة: الكود طلب استيراد المكتبة 

PHP كود :

Imports System.Globalization 


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

---

ملاحظة: أخري ربما اختلفت أنواع الملفات في الرسورسز وليست كلها ملفات نصية

[أبو عبدالله الحلواني]

كل عام انتم بخير

لم تزل المشكلة قائمة لدي
وجزاكم الله خيرا