منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود ارسال مافي الريسورس في ملف البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم


شباب انا حاب اسوي برنامج فيه اربع ملفات


وابي اسوي لهم نسخ على ملف غير محدد انا اعرف كيف اسوي على طريق محدد وهذا الكود لي تحديد نسخ الملف في هذا المسار

PHP كود :
IO.File.WriteAllBytes("مسار الملف"My.Resources.اسم اللف الي في الريسورس

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


وشكرا


اتمنى فهمتو علي
رد يا اخوان
لستُ ادري بالتحديد ... لكن لمَ لا تصنع مسارك الخاص ؟ .. أي انْ تصنع فولدر على الجهاز و من ثم تضع فيه ما تريد
مثلا : C:\Hassan
فيكون الكود هنا
PHP كود :
IO.Directory.CreateDirectory("C:\Hassan")
IO.File.WriteAllBytes("C:\Hassan\Myfile.***"My.Resources.اسم اللف الي في الريسورس
طيب وكيف للبرنامج ان يعرف اين تريد ان تضع الملف
هل تقصد عن طريق اظهار رسالة للمستخدم يحدد مكان الحفظ
ام مثلا يوجد ملفات في مكان ما تحمل نفس الاسم وتريد للبرنامج ان يستبدلها
(02-06-14, 04:55 PM)Ali Wisam كتب : [ -> ]لستُ ادري بالتحديد ... لكن لمَ لا تصنع مسارك الخاص ؟ .. أي انْ تصنع فولدر على الجهاز و من ثم تضع فيه ما تريد
مثلا : C:\Hassan
فيكون الكود هنا
PHP كود :
IO.Directory.CreateDirectory("C:\Hassan")
IO.File.WriteAllBytes("C:\Hassan\Myfile.***"My.Resources.اسم اللف الي في الريسورس
اخي مو هذا قصدي انا قصدي اي مجلد مو مجلد محدد يعني وين ما احط البرنامج في اي مجلد يستخرج في المجلد الي البرنامج فيه
اتفضل
Application.StartupPath
هذه الدالة ترجع بمسار البرنامج يمكنك وضعها مكان "مسار الملف" واضف لها اسم الملف
مثال
كود :
IO.File.WriteAllBytes(Application.StartupPath & My.Resources.About.ToString & ".txt" _
                    , My.Resources.About)
(02-06-14, 05:21 PM)ali.alfoly كتب : [ -> ]اتفضل
Application.StartupPath
هذه الدالة ترجع بمسار البرنامج يمكنك وضعها مكان "مسار الملف" واضف لها اسم الملف
مثال
كود :
IO.File.WriteAllBytes(Application.StartupPath & My.Resources.About.ToString & ".txt" _
                    , My.Resources.About)

مافهمتك ممكن تشرح لي
.....

كود :
Dim sv As New SaveFileDialog
If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
    IO.File.WriteAllBytes(sv, My.Resources.اسم_ملف_الريسورس)
End If

.....
اذا كنت تريد وضعه في الفولدر الذي فيه البرنامج .. فاحفظه دون كتابة اسم فولدر
مثلا :
PHP كود :
IO.File.WriteAllBytes("Program.exe",My.Resources.Program
(02-06-14, 06:22 PM)Ali Wisam كتب : [ -> ]اذا كنت تريد وضعه في الفولدر الذي فيه البرنامج .. فاحفظه دون كتابة اسم فولدر
مثلا :
PHP كود :
IO.File.WriteAllBytes("Program.exe",My.Resources.Program

الله يعطيك العافيه ما تقصر ضبط الكود



شكرا