Hallo,

damit auch andere Forenuser auf Ihre Frage eine Antwort / Lösung finden:

Man kann Ihr Anliegen auf unterschiedliche Wege umsetzen, folgend die zwei sinnvollsten.



1. Nutzung der Sax-Basic Funktion 'WritePrivateProfile'

Function WritePrivateProfile&(section$, entry$, value$, iniName$)
Schreibt einen Eintrag in eine Ini Datei

Parameter:
section$ Sektion.
entry$ Zu schreibender Eintrag.
value$ Wert des Eintrags.
iniName$ Name der Ini Datei.

Rückgabe:
Pet Fehlercode. 0 bedeutet OK.



2. Nutzung der Funktion WriteInifile über die COM-Schnittstelle

WriteInifile(String sSection, String sTag, String sValue, String sFilename)
Die Methode schreibt einen Konfigurationseintrag in eine Ini-Datei.

Parameter:
sSection String: Name einer Sektion in der Ini-Datei.
sTag String: Name eines Tags in der Ini-Datei.
sValue String: Wert des Tags.
sFilename String: Name einer INI-Datei, evtl. mit Pfadangabe.
Dieser Parameter ist optional und muß nicht angegeben werden. Eine leere Zeichenkette wird wie ein nicht übergebener Parameter interpretiert.
Wird sFilename angegeben, so bezieht sich die Operation auf sFilename, nicht auf die aktuelle Propertyeinstellung. Die Propertyeinstellung bleibt erhalten.

Rückgabe:
Ergebnis der Operation mit IPetcomError.LastError.
0 Wert erfolgreich geschrieben.

>0 Fehler beim Schreiben.

Zu beachten:
Die Methode löst im Fehlerfall, eine Ausnahme aus, die je nach On Error Einstellung behandelt wird. Der Fehler kann mit IPetcomError.LastError ausgelesen und mit IPetcomError.MessageBox angezeigt werden.

Beispiel:

On Error GoTo Catch
 
        Dim obDxRegistry As Object
        Dim petErr As Object
        Dim sData as String
                
        Set obDxRegistry = CreateObject("DxRegistry.DxRegistry.1")
        Set petErr = CreateObject("PetcomError.PetcomError.1")
                
        obDxRegistry.sFilename = "C:\Meine Applikation\app.ini"
 
        obDxRegistry.WriteInifile "Meine Section", "Mein Tag", "Wert 1"
        obDxRegistry.WriteInifile "Meine Section", "Mein Tag", "Wert 1", "C:\Meine Applikation\nocheine.ini"
 
        sData = obDxRegistry.ReadInifile("Meine Section", "Mein Tag")
        sData = obDxRegistry.ReadInifile("Meine Section", "Mein Tag", "C:\Meine Applikation\nocheine.ini")
 

        Catch:
        If petErr.LastError <> 0 Then
                petErr.MessageBox
        End If 
 

Ohne das Script, kann ich da so nichts zu sagen.
Bitte hängen Sie das Script entweder an diesen Thread an oder senden es mir per Email.