Pfad für My.Settings beeinflussen (Roaming)

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    Pfad für My.Settings beeinflussen (Roaming)

    Hallo Leute,
    ich stehe mal wieder vor einem Problem und ich denke das hier auch nur eine kleinigkeit ist (sehe den Wald vor lauter Bäumen nicht). Zumindest hoffe ich das.

    Ich speichere bei meiner Anwendung dieverse Programmeinstellungen in verschiedene My.Setting variablen. Diese werden Benutzerspezifisch in %AppData% abgelegt. Das funktioniert auch alles und ist gut, jedoch gefällt mit der Pfad nicht.

    Der Pflad sieht wie folgt aus:

    %appdata%\[FIRMA]\[Anwendungsname][color=#FF0000].exe_Url_0v1m2rzu14jrlbn2ncjyu1stfbtc51sf[/color]\[Version]\user.config

    Mich stört die URL an dem Anwendungsnamen. Weis jemand wie ich das hinbekommen, dass die URL nicht mit genommen wird, als das Verzeichniss nur nach Anwendungsname benannt wird???

    Danke und Grüße

    Wenn ich deinen Titel so lese, dann suchst du evtl noch etwas anderes, als du gefragt hast.

    Du kannst den Pfad der Settings insofern beeinflussen, als das du die Einstellungen nicht lokal, sondern im Roaming Profil speicherst. In einer Domäne werden die Settings somit im Serverprofil gespeichert und sind somit unabhängig vom PC verfügbar. Einfach ans Domänen-Benutzerprofil gekoppelt.


    Einfach jede Setting einzeln auswählen und unter dem Eigenschaftenpanel Roaming = True auswählen!

    Die URL im Pfad kriegst du nur weg, wenn Du einen Starken Namen verwendest. (stackoverflow.com/a/20273550)

    Veronesi

    Der Prvider läuft auch mit FW 3.5 problemlos...
    Am besten, du erstellst dir mit VS2008 eine neu Klassenbilbliothek mit den Namen UserSettingsProvider.dll und kopierst dir den Code UserSettingsProvider.vb.

    UserSettingsProvider.vb

    VB.NET-Quellcode

    1. Imports System.Configuration
    2. Imports System.ComponentModel
    3. Imports System.Reflection
    4. Imports System.IO
    5. Imports System.Collections.Specialized
    6. Imports System.Runtime.Serialization.Formatters.Binary
    8. Namespace MyProvider
    9. ''' <summary>
    10. ''' Dieser Provider speichert die betroffenen Settings-Einstellungen in eine eigene .exe.config.xml-Datei.
    11. ''' Diese Datei liegt im Arbeitsverzeichnis der Anwendung.
    12. ''' HINWEISE:
    13. ''' Die ApplicationName-Property erstellt die ProduktName-Eigenschaft von der My.Application.Info.ProduktName
    14. ''' Hier sollte in den Projekteigenschaften/Anwendung/Assemblyinformationen die Eigenschaft ProduktName = AssemblyName gestellt sein!
    15. ''' </summary>
    16. ''' <remarks></remarks>
    17. Public Class UserSettingsProvider
    18. Inherits SettingsProvider
    19. Implements IApplicationSettingsProvider
    21. Private Datas As Dictionary(Of String, Object)
    22. Private Property DataFile As FileInfo
    23. Private Property AppPath As String
    25. Sub New()
    26. Dim fi = New FileInfo(Assembly.GetExecutingAssembly.Location)
    27. ApplicationName = fi.Name.Replace(fi.Extension, String.Empty)
    28. AppPath = fi.FullName.Replace(fi.Name, String.Empty)
    29. DataFile = New FileInfo(Path.Combine(AppPath, String.Concat(ApplicationName, ".exe.config.dat")))
    30. Datas = New Dictionary(Of String, Object)()
    31. End Sub
    33. Public Overrides Sub Initialize(ByVal name As String, ByVal config As NameValueCollection)
    34. MyBase.Initialize(ApplicationName, config)
    35. End Sub
    37. Public Overrides Property ApplicationName() As String ' hier wird der Produktname von der Assembly angegeben
    39. Public Overrides ReadOnly Property Name As String
    40. Get
    41. Return "UserSettingsProvider"
    42. End Get
    43. End Property
    45. ''' <summary>
    46. ''' SetPropertyValues wird erst abgearbeitet, wenn ApplicationSettingsBase.Save durchgeführt wird.
    47. ''' ApplicationSettingsBase stellt sicher, dass für jeden einzelnen Provider nur seine markierten Werte herangenommen werden.
    48. ''' Egal, ob der Provider auf einer Einzel-Einstellung angesetzt ist oder ob klassenweit die Einstellung angegeben wurde.
    49. ''' Wenn Einstellungen nicht verändert wurden, müssen sie nicht gespeichert werden!
    50. ''' Anwendungsspezifische Einstellungen können nicht geändert werden und werden daher auch nicht gespeichert!
    51. ''' </summary>
    52. ''' <param name="context"></param>
    53. ''' <param name="collection"></param>
    54. Public Overrides Sub SetPropertyValues(ByVal context As SettingsContext, ByVal collection As SettingsPropertyValueCollection)
    55. For Each prpValue As SettingsPropertyValue In collection
    56. If Not prpValue.IsDirty OrElse (prpValue.SerializedValue Is Nothing) Then Continue For
    57. If IsApplicationScoped(prpValue.Property) Then Continue For
    58. Datas(prpValue.Name) = prpValue.SerializedValue
    59. Next
    60. SaveBinary(DataFile, Datas)
    61. End Sub
    63. Public Overrides Function GetPropertyValues(ByVal context As SettingsContext, ByVal collection As SettingsPropertyCollection) As SettingsPropertyValueCollection
    64. If DataFile.Exists Then Datas = LoadBinary(DataFile)
    65. Dim col As New SettingsPropertyValueCollection()
    66. For Each prp As SettingsProperty In collection
    67. Dim Value As New SettingsPropertyValue(prp)
    68. If Datas.ContainsKey(prp.Name) Then Value = GetPropertyValue(prp) ' Wert von Datas einlesen
    69. col.Add(Value)
    70. Next
    71. Return col
    72. End Function
    74. ''' <summary>
    75. ''' Nur benutzerspezifische Eigenschaften sind zulässig.
    76. ''' Wenn eine Eigenschaft keinen Wert hat, wird der Defaultwert geladen.
    77. ''' </summary>
    78. ''' <param name="prp"></param>
    79. Private Function GetPropertyValue(ByVal prp As SettingsProperty) As SettingsPropertyValue
    80. Dim value As New SettingsPropertyValue(prp)
    81. If IsUserScoped(prp) Then value.SerializedValue = Datas(prp.Name)
    82. value.IsDirty = False
    83. Return value
    84. End Function
    86. ''' <summary>
    87. ''' Test auf anwendungsspezifische Eigenschaft
    88. ''' </summary>
    89. ''' <param name="prop"></param>
    90. Private Function IsApplicationScoped(ByVal prop As SettingsProperty) As Boolean
    91. Return HasSettingScope(prop, GetType(ApplicationScopedSettingAttribute))
    92. End Function
    94. ''' <summary>
    95. ''' Test auf benutzerdefinierte Eigenschaft
    96. ''' </summary>
    97. ''' <param name="prop"></param>
    98. Private Function IsUserScoped(prop As SettingsProperty) As Boolean
    99. Return HasSettingScope(prop, GetType(UserScopedSettingAttribute))
    100. End Function
    102. ''' <summary>
    103. ''' prüft auf erlaubte Einstellung, so wie es der LocalFileSettingsProvider auch macht ...
    104. ''' </summary>
    105. ''' <param name="prop"></param>
    106. ''' <param name="attributeType"></param>
    107. Private Function HasSettingScope(ByVal prop As SettingsProperty, ByVal attributeType As Type) As Boolean
    108. Dim isAppScoped As Boolean = prop.Attributes(GetType(ApplicationScopedSettingAttribute)) IsNot Nothing
    109. Dim isUserScoped As Boolean = prop.Attributes(GetType(UserScopedSettingAttribute)) IsNot Nothing
    110. If isUserScoped AndAlso isAppScoped Then Throw New ConfigurationErrorsException("BothScopeAttributes: " & prop.Name)
    111. If Not isUserScoped AndAlso Not isAppScoped Then Throw New ConfigurationErrorsException("NoScopeAttributes: " & prop.Name)
    112. Select Case True
    113. Case attributeType Is GetType(ApplicationScopedSettingAttribute) : Return isAppScoped
    114. Case attributeType Is GetType(UserScopedSettingAttribute) : Return isUserScoped
    115. Case Else : Return False
    116. End Select
    117. End Function
    119. ''' <summary>
    120. ''' Daten binär speichern
    121. ''' </summary>
    122. ''' <param name="DataFile"></param>
    123. ''' <param name="Datas"></param>
    124. Private Sub SaveBinary(DataFile As FileInfo, Datas As Dictionary(Of String, Object))
    125. deleteLocalPathUserSettings()
    126. Using fs As Stream = File.Create(DataFile.FullName)
    127. Dim binfmt As New BinaryFormatter()
    128. binfmt.Serialize(fs, Datas)
    129. End Using
    130. End Sub
    131. ''' <summary>
    132. ''' falls der LocalUserAppDataPath vorhanden ist,
    133. ''' wird der Ordner mit allen untergeordneten Verzeichnissen gelöscht
    134. ''' </summary>
    135. ''' <remarks></remarks>
    136. Private Sub deleteLocalPathUserSettings()
    137. Dim di As New DirectoryInfo(ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.PerUserRoamingAndLocal).FilePath)
    138. di = di.Parent.Parent.Parent
    139. If di.Exists Then di.Delete(True)
    140. End Sub
    142. ''' <summary>
    143. ''' binäre Daten laden
    144. ''' </summary>
    145. ''' <param name="DataFile"></param>
    146. Private Function LoadBinary(DataFile As FileInfo) As Dictionary(Of String, Object)
    147. Using fs As Stream = File.Open(DataFile.FullName, FileMode.Open)
    148. Dim binfmt As New BinaryFormatter()
    149. Return CType(binfmt.Deserialize(fs), Dictionary(Of String, Object))
    150. End Using
    151. End Function
    153. #Region "IApplicationSettingsProvider Members"
    154. ''' <summary>
    155. ''' Abrufen der letzten Version der Settingseigenschaft
    156. ''' </summary>
    157. ''' <param name="context"></param>
    158. ''' <param name="property"></param>
    159. Public Function GetPreviousVersion(ByVal context As SettingsContext, ByVal [property] As SettingsProperty) As SettingsPropertyValue Implements IApplicationSettingsProvider.GetPreviousVersion
    160. Dim prpValue As New SettingsPropertyValue([property])
    161. If Datas.ContainsKey([property].Name) Then prpValue.PropertyValue = Datas([property].Name)
    162. Return prpValue
    163. End Function
    165. ''' <summary>
    166. ''' wieder auf die Defaultwerte der Settings zurücksetzen!
    167. ''' </summary>
    168. ''' <param name="context"></param>
    169. Public Sub Reset(ByVal context As SettingsContext) Implements IApplicationSettingsProvider.Reset
    170. If DataFile.Exists Then Datas.Clear() : SaveBinary(DataFile, Datas)
    171. End Sub
    173. ''' <summary>
    174. ''' ErfinderDesRades
    175. ''' fehlende Settings werden sofort der Sammlung entfernt
    176. ''' neue hinzugekommene Settings werden beim nächsten Speichervorgang gesichert
    177. ''' </summary>
    178. ''' <param name="context"></param>
    179. ''' <param name="properties"></param>
    180. Public Sub Upgrade(ByVal context As SettingsContext, ByVal properties As SettingsPropertyCollection) Implements IApplicationSettingsProvider.Upgrade
    181. If Datas.Count = 0 AndAlso DataFile.Exists Then Datas = LoadBinary(DataFile)
    182. Dim toDelete = Datas.Keys.Except(properties.Cast(Of SettingsProperty).Select(Function(p) p.Name)).ToList
    183. toDelete.ForEach(AddressOf Datas.Remove)
    184. End Sub
    185. #End Region
    187. End Class
    188. End Namespace


    In Zeile #29 wird der Pfad, wohin persistiert werden soll, in der Variable DataFile festgelegt...
    Die Methoden LoadBinary und SaveBinary kann man auf seine Bedürfnisse ändern...
    Auf obige Bibliothek machst du dir dann in deinem Projekt einen Verweis und und gibst in Settings.vb den Provider bekannt.

    Settings.vb

    VB.NET-Quellcode

    1. Namespace My
    2. <Global.System.Configuration.SettingsProvider(GetType(UserSettingsProvider.MyProvider.UserSettingsProvider))> _
    3. Partial Friend NotInheritable Class MySettings
    4. End Class
    5. End Namespace

    In Projekt/Einstellungen kannst du dann deine Settings mit dem Provider persistieren...