AW: Kacheln von Bildern
Hallo Harald,
es will noch immer nicht, was aber vermutlich nicht an Deinem Script, sondern eher am meinem PC (Vista!) liegt.
Ich hab versucht, der Sache mal auf den Grund zu gehen.
Es kommt die Meldung:
In der Registry steht
"DataPath"="C:\\Users\\admin\\Documents\\FixFoto"
Und im Programm unter Einstellungen --> Pfade wird auch dieses Arbeitsverzeichnis angezeigt.
Merkwürdigerweise liefert in Deinem Script
'### FixFotoScript.ini bereinigen
TempFile = FF_GetFFPath() & "\Params\FixFotoScript.ini"
call IniBereinigung
die Funktion
FF_GetFFPath aber
C:\Program Files\FixFoto. Und dort liegt die
FixFotoScript.ini nun mal nicht. Einen Ordner
Params gibt es bei mir übrigens gar nicht.
Andererseits wurde dann aber schon irgendeine FixFotoScript.ini durchsucht. Die hab ich unter
c:\Users\admin\AppData\Local\VirtualStore\Program Files\FixFoto\Params\ dann auch tatsächlich gefunden. Da steht Dein Script nicht drinn, logisch, dass es da auch nicht gelöscht werden kann.
Im Netz findet sich dazu
Existieren Daten sowohl im VirtualStore als auch in den eigentlichen originalen Positionen, dann werden immer die Daten des VirtualStore verwendet.
Aha, also hab ich den Kram im VirtualStore gelöscht. Unter
HKEY_CURRENT_USER\Software\Classes\VirtualStore\MACHINE\SOFTWARE lag nichts, was nach FF aussah und evtl. auch zu löschen gewesen wäre.
... und war ich voller Hoffnung. Aber leider liefert
FF_GetFFPath weiterhin den falschen Pfad ]
Dagegen liefert
FF_GetFFPathEx(1) das korrekte Verzeichnis!
Nach folgender Änderung
'### Registry-Daten löschen
TempFile = "HKEY_CURRENT_USER\Software\Joachim Koopmann Software\FixFoto\Script" & RegSchluessel
WshShell.RegDelete(TempFile)
'### FixFotoScript.ini bereinigen
TempFile = FF_GetFFPathEx(1) & "\FixFotoScript.ini"
msgbox tempfile
call IniBereinigung
'### Fertigmeldung
msgbox "Nach Durchführung der 'Automatischen Skriptkonfiguration' ist das Skript" & vbNewLine & _
Skriptname & " mit allen Komponenten gelöscht!",vbExclamation,"Hinweis"
End Sub
'------------------------------------------------------------------------
Sub IniBereinigung
'FixFotoScript.ini - Bereinigung
Dim Zeile,zNr,Anfang,Ende
Dim DateiTmp,ZielZeile,tmpString
DateiTmp = FF_GetFFPathEx(1) & "\FixFotoScript.tmp"
const ForReading = 1, ForWriting = 2, ForAppending = 8
läuft es wie geschmiert.
Aber was ist da los? Hast Du (oder sonst jemand) eine Erklärung? Liefert
FF_GetFFPath() am Ende immer das
Programmverzeichnis?