title image


Smiley Gehe ich recht in der Annahme, dass Du auch Word auf dem Rechner hast?
Word bietet in seiner Objektbibliothek die Funktion PrivateProfileString, mit der man Schreib-Lese-Zugriff auf INI-Dateien (und ggf. auch auf die Registry) hat.



Kopiere Dir folgende Funktionen in ein allgemeines Modul:





Public Function fGetPrivateProfileString(FileName As String, Section As String, Key As String) As String

Dim objWrd As Object

On Error GoTo fGetPrivateProfileStringErr

fGetPrivateProfileString = ""

Set objWrd = CreateObject("Word.Application")

fGetPrivateProfileString = objWrd.System.PrivateProfileString(FileName, Section, Key)

fGetPrivateProfileStringExit:

Set objWrd = Nothing

Exit Function

fGetPrivateProfileStringErr:

fGetPrivateProfileString = ""

Resume fGetPrivateProfileStringExit

End Function











Public Function fSetPrivateProfileString(FileName As String, Section As String, Key As String, KeyValue) As Boolean

Dim objWrd As Object

On Error GoTo fsetPrivateProfileStringErr

fSetPrivateProfileString = False

Set objWrd = CreateObject("Word.Application")

objWrd.System.PrivateProfileString(FileName, Section, Key) = KeyValue

fSetPrivateProfileString = True

fsetPrivateProfileStringExit:

Set objWrd = Nothing

Exit Function

fsetPrivateProfileStringErr:

fSetPrivateProfileString = False

Resume fsetPrivateProfileStringExit

End Function







Angenommen, Deine Datei hieße "C:\Temp\asdf.ini" und die Section hieße "olli_d" - dann sähe der Aufruf so aus:





Sub Test()

Dim retVal As Boolean

If fGetPrivateProfileString("C:\Temp\asdf.ini", "olli_d", "Autostamp") = "0" Then

retVal = fSetPrivateProfileString("C:\Temp\asdf.ini", "olli_d", "Autostamp", "1")

Debug.Print retVal

End If

End Sub







Wenn alles geklappt hat, gibt retVal = True zurück.



Zum Suchen & Finden der INI-Datei bemühe mal die Hilfe oder die Forensuche zum Suchbegriff "FileSearch".



Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: