Tipp 7.4 - Wert in INI schreiben

Wie kann ich einen Wert in eine INI-Datei schreiben?

Mit dieser Funktion können Sie einen Wert in eine INI-Datei schreiben. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: WritePrivateProfileString

Beispiel:

Option Explicit
 
Public Declare Function WritePrivateProfileString _
    Lib "kernel32" Alias _
    "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
 
Public Function WriteMyIniSetting( _
                sIniFilePath As String, _
                sSection As String, _
                sKey As String, _
                sValue As String) As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Schreibt einen Wert in eine INI-Datei;
  '//            | gibt es die Datei nicht, wird sie
  '//            | angelegt
  '// -----------------------------------------------------
  '// Parameter: | sIniFilePath = gültiger Pfad zu einer
  '//            |                INI-Datei
  '//            | sSection = Sektionsname [...]
  '//            | sKey = Schlüsselname
  '//            | sValue = zu schreibender Wert
  '// -----------------------------------------------------
  '// Rückgabe:  | True = Schreiben war erfolgreich
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  WriteMyIniSetting = WritePrivateProfileString(sSection, _
      sKey, _
      sValue, _
      sIniFilePath)
End Function