AW: Dateizugriffe zählen
12.12.2004 10:27:22
Ramses
Hallo
damit solltest du klar kommen.
Hier ist alles beschrieben was du brauchst.
Die Namen musst du halt entsprechend anpassen,.... dazu hatte ich nun keine Lust ;-)
'Option Explicit
Const RegAppName As String = "TestAnw"
Const RegKeySection As String = "StartUp"
Sub Reg_Key_setzen()
Dim i As Integer
For i = 1 To 10
SaveSetting appName:="TestAnw", section:="StartUp", key:=i, setting:=i + 75
'Eintrag mit Konstanten
'SaveSetting appname:=RegAppKey, section:=RegKeySection, key:=i, setting:=i + 75
Next i
End Sub
Sub Reg_Key_Alle_Settings_auslesen()
Dim Einstellungen As Variant, intsettings As Integer
' Einträge in der Registrierung vornehmen.
SaveSetting appName:="TestAnw", section:="Startup", key:="Top", setting:=75
'Ohne detaillierte Anweisung
SaveSetting "TestAnw", "Startup", "Left", 50
SaveSetting "TestAnw", "Startup", "right", 100
' Einstellungen abrufen.
Einstellungen = GetAllSettings(appName:="TestAnw", section:="Startup")
For intsettings = LBound(Einstellungen, 1) To UBound(Einstellungen, 1)
Debug.Print Einstellungen(intsettings, 0), Einstellungen(intsettings, 1)
Next intsettings
Debug.Print intsettings
End Sub
Sub Reg_Key_Einzwlwert_auslesen()
Dim x As Variant
x = GetSetting(appName:="TestAnw", section:="Startup", key:="Top")
End Sub
Sub Reg_Key_löschen()
'Hauptschlüssel löschen
DeleteSetting "TestAnw" ', "Startup"
'Unterschlüssel löschen
'DeleteSetting "TestAnw", "Startup"
End Sub
Gruss Rainer