[march]

(07-05-21, 08:26 PM)أبو عبدالله الحلواني كتب : السلام عليكم ورحمة الله وبركاته
لدي ملفات بالرسورسز اريد ان استخدم 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