+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع (/showthread.php?tid=29771)
كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع - الرائد - 08-06-19
اخواني الكرام , السلام عليكم
في الاونة الاخير صرت اعاني من مشكلة مكان حفظ الملفات بالحاسوب , فحين أقوم ببرمجة أقوم بتحديد مسار الحفظ
المشكلة ان اللمشروع في حالة تنصيبه بحاسوب آخر ,
السؤال
: وهو كيف يمكنني جعل البرنامج قبل عملية الحفظ المستمرة والمداومة على اي حاسوب انشاء مجلد ثابت مثلا في DOCUMENT , ثم يقوم بحفظ اي ملف داخله دون الحاجة الى اعادة تحديد المجلد المنشأ في السابق مرة أخرى ,
لدى مشروع فكرته انه يقوم بالتعديل على قالب وورد ثم يقوم بحفظه مرة أخرى , وعلى هذا الملف الجديد أن يحفظ في مكان ثابت مهما اختلف مكان تثبيت المشروع ,
حيث أنني استخدمت الحفظ للصور في الحاسوب بهذا الكود ,
Application.StartupPath & "\PIC_personnel\" & imgpath
لكنلن ينفع لانه يقوم بالحفظ ابتداءا من الملف DEBUG وأنا أورد الحفظ في مجلد منشأ مثلا في DOCUMENT أو في DESKTOP , أو في USER
RE: كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع - ابراهيم ايبو - 09-06-19
السلام عليكم اخي الكريم
لحفظ الملفات في مكان محدد
كود :
Dim Sfd As New SaveFileDialog()
Sfd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) ' سيذهب مباشرة الى مجلد الصور
كود :
Sfd.InitialDirectory = "C:\Raed" ' المسار الافتراضي الذي تريد الذهاب اليهRE: كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع - الرائد - 09-06-19
شكرا لك كثيرا ويارك الله فيك
يبقى السؤال :
ان اردت جعل المشروع كلما يتم تثبيته في حاسوب يقوم بانشاء مجلد ثابت في مسار معين اما في مجلد DOCUMENT أو PICTURES ,
يقوم بتخزين الملفات والصور كلما احتجت ذلك
RE: كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع - ابراهيم ايبو - 09-06-19
السلام عليكم
اخي لانشاء مجلد اليك الكود التالي حيث يمكنك استبدال MyFolder بالاسم الذي تريده
سيتحقق الكود من وجود المجلد وينشئه في حال انه غير موجود في المسار الذي ستحدده
كود :
Imports System.IO استيراد المكتبة
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim folderName As String = "MyFolder" ' متغير يحمل اسم المجلد
Dim path As String = "" 'Ofb متغير ليحمل اسم المسار الذي سننشئ فيه المجلد وسيأخذ قيمته من
Dim Ofb As New FolderBrowserDialog()
If Ofb.ShowDialog() = DialogResult.OK Then
path = Ofb.SelectedPath ' اسناد القيمة للمتغير مسار
End If
If Not Directory.Exists(path & " \" & folderName) Then
Directory.CreateDirectory(path & " \" & folderName) ' انشاء المجلد
MessageBox.Show("تم انشاء المجلد بنجاح")
Else
MessageBox.Show("المجلد موجود سابقا")
End If
End Sub