منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تحديد موقع ملف user.config واعدة توجيهه لموقع آخر

السلام عليكم ورحمة الله وبركاته…
ارجو المساعدة في كود تحديد موقع ملف user.config ومن ثم اعادة توجيهه للحفظ في مكان آخر .
اذ استخدمت الكود التالي
Dim config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal)
MessageBox.Show(config.FilePath)
لكنه يبحث في مجلد roaming بينما الملف المستهدف في مجلد local
ولكم جزيل الشكر

(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

(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

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

(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