GetSettingString (Funktion)

 Top  Previous  Next

GetSettingString (Funktion)

Gibt einen Eintrag aus der Windows-Registrierung zurück.

Parameter:

hKey

Der Schlüsselroot-Pfad als String.

Mögliche Werte:

HKCU

HKEY_CURRENT_USER

HKLM

HKEY_LOCAL_MACHINE

HKU

HKEY_USERS

HKCR

HKEY_CLASSES_ROOT

HKCC

HKEY_CURRENT_CONFIG

 

strPath

Der Pfad zum Registrierungseintrag.

strValue

Der Wert, der zurückgegeben werden soll.

Beispiel:

 

'Dem Benutzer melden, dass wir jetzt die TinyERP-Datenbank sichern:

Status = "SAP Datensicherung"

Source = "SAP-Datenbank"

 

'Scriptpfad aus der Registry auslesen:

Dim sScript

sScript = GetSettingString(HKLM, "Software\SAP", "DatabackupCMD")

 

'Script versteckt aufrufen und Anzahl der gesicherten Dateien auslesen:

lAnzFiles = Shell(sScript & " " & Destination, 0)

 

'Dateizähler um die Anzahl der vom Script gesicherten Dateien erhöhen:

Counter = Counter + lAnzFiles