[jam3h]

ممكن كود فيجوال بيسك نقل ملف من ريسورس الى مستندات
لدي هذا الكود ولكن لم يعمل
My.Computer.FileSystem.WriteAllBytes("C:\Users/%username%/Documents\/salem.png", My.Resources.salem_png, False)

[alfaiz678]

(22-12-20, 09:33 PM)jam3h كتب : ممكن كود فيجوال بيسك نقل ملف من ريسورس الى مستندات
لدي هذا الكود ولكن لم يعمل
My.Computer.FileSystem.WriteAllBytes("C:\Users/%username%/Documents\/salem.png", My.Resources.salem_png, False)

جرب

كود :

 IO.File.Copy("D:\New Folder\Entypo_2389_0__64.png", My.Resources._114.ToString)

[jam3h]

alfaiz678
لم يعمل الكود ربما الخطا %username% هل هذا كود يوزر لاي مستخدم.؟

[Ngm]

(23-12-20, 11:38 AM)jam3h كتب : alfaiz678
لم يعمل الكود ربما الخطا %username% هل هذا كود يوزر لاي مستخدم.؟

لتعرف مسار المستندات

كود :

Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

وهذا التعديل

كود :

My.Resources.salem_png.Save(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\salem.png")