+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديد موقع ملف user.config واعدة توجيهه لموقع آخر (/showthread.php?tid=47435)
تحديد موقع ملف user.config واعدة توجيهه لموقع آخر - Mohammed Nafa - 03-11-23
السلام عليكم ورحمة الله وبركاته…
ارجو المساعدة في كود تحديد موقع ملف user.config ومن ثم اعادة توجيهه للحفظ في مكان آخر .
اذ استخدمت الكود التالي
Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
MessageBox.Show(config.FilePath)
لكنه يبحث في مجلد roaming بينما الملف المستهدف في مجلد local
ولكم جزيل الشكر
RE: تحديد موقع ملف user.config واعدة توجيهه لموقع آخر - Mohammed Nafa - 04-11-23
(04-11-23, 01:16 PM)Ashraf10 كتب :السلام عليكم ورحمة الله وبركاته...(03-11-23, 09:35 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته…
ارجو المساعدة في كود تحديد موقع ملف user.config ومن ثم اعادة توجيهه للحفظ في مكان آخر .
اذ استخدمت الكود التالي
Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
MessageBox.Show(config.FilePath)
لكنه يبحث في مجلد roaming بينما الملف المستهدف في مجلد local
ولكم جزيل الشكر
Dim config As Configuration
If System.Web.HttpContext.Current IsNot Nothing Then
config = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("~")
Else
config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
End If
MessageBox.Show(config.FilePath)
انا اتحدث عن برنامج وليس ويب ...أرجو تعديل الكود ليتناسب مع Windows apl
RE: تحديد موقع ملف user.config واعدة توجيهه لموقع آخر - Mohammed Nafa - 07-11-23
(04-11-23, 04:55 PM)Mohammed Nafa كتب :(04-11-23, 01:16 PM)Ashraf10 كتب :السلام عليكم ورحمة الله وبركاته...(03-11-23, 09:35 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته…
ارجو المساعدة في كود تحديد موقع ملف user.config ومن ثم اعادة توجيهه للحفظ في مكان آخر .
اذ استخدمت الكود التالي
Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
MessageBox.Show(config.FilePath)
لكنه يبحث في مجلد roaming بينما الملف المستهدف في مجلد local
ولكم جزيل الشكر
Dim config As Configuration
If System.Web.HttpContext.Current IsNot Nothing Then
config = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("~")
Else
config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
End If
MessageBox.Show(config.FilePath)
انا اتحدث عن برنامج وليس ويب ...أرجو تعديل الكود ليتناسب مع Windows apl
السلام عليكم ورحمة الله وبركاته....
هل من افكار يا شباب ...أرجو المشاركة.....
بارك الله بكم...
RE: تحديد موقع ملف user.config واعدة توجيهه لموقع آخر - Mohammed Nafa - 07-11-23
(07-11-23, 02:21 PM)Mohammed Nafa كتب :(04-11-23, 04:55 PM)Mohammed Nafa كتب :(04-11-23, 01:16 PM)Ashraf10 كتب :السلام عليكم ورحمة الله وبركاته...(03-11-23, 09:35 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته…
ارجو المساعدة في كود تحديد موقع ملف user.config ومن ثم اعادة توجيهه للحفظ في مكان آخر .
اذ استخدمت الكود التالي
Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
MessageBox.Show(config.FilePath)
لكنه يبحث في مجلد roaming بينما الملف المستهدف في مجلد local
ولكم جزيل الشكر
Dim config As Configuration
If System.Web.HttpContext.Current IsNot Nothing Then
config = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("~")
Else
config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
End If
MessageBox.Show(config.FilePath)
انا اتحدث عن برنامج وليس ويب ...أرجو تعديل الكود ليتناسب مع Windows apl
السلام عليكم ورحمة الله وبركاته....
هل من افكار يا شباب ...أرجو المشاركة.....
بارك الله بكم...
السلام عليكم ورحمة الله وبركاته
من فضل الله توصلت للحل واحببت مشاركتكم اياه للمنفعة ....وهو كما يلي ....
Imports System.Configuration
Public Class Form1
Public Shared Function GetDefaultExeConfigPath(userLevel As ConfigurationUserLevel) As String
Try
Dim UserConfig As Configuration = ConfigurationManager.OpenExeConfiguration(userLevel)
Return UserConfig.FilePath
Catch e As ConfigurationException
Return e.Filename
End Try
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim configPath As String = GetDefaultExeConfigPath(ConfigurationUserLevel.PerUserRoamingAndLocal)
MessageBox.Show("Configuration File Path: " & configPath)
End Sub
End Class