Ist ein Skript in FixFoto aktiviert, will man dieses möglicherweise wieder entfernen, z.B. wenn man ein Skript nur mal testen will.
Skriptarchive können sehr unterschiedlich benannt werden und beim Entpacken des Archivs oder bei Anwendung des Skripts werden möglicherweise zusätzliche Dateien und Ordner im FF-Skriptverzeichnis abgelegt. Außerdem legt ein Skript eventuell Daten in der Registry des Betriebssystems ab. Was genau geschieht, weiß nur der Skriptautor und der sollte daher in seinem Skript eine Löschroutine einbauen, mit der auf Wunsch alle Komponenten des Skripts restlos entfernt werden können.

Der Skriptname muss abgelegt werden,
const SkriptName = "Beispiel.vbs"
die folgenden Objekte sind anzulegen,
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
die Lese-Konstante ist erforderlich,
const ForReading = 1
drei Variable sind notwendig
Dim Antwort, Abbruch, TempFile
Abbruch = false
und eine Konstante wird definiert, die beim Aufruf der Löschroutine auf true gesetzt wird
Dim SkriptKill
SkriptKill = false

Als erstes muss festgelegt werden, wie die Löschroutine vom Anwender aufgerufen werden soll. Da der Aufruf möglichst versteckt und nicht unbeabsichtigt erfolgen soll, wurde hier die Tastenkombination Alt + d festgelegt. Realisierbar ist dieser Aufruf aber nur, wenn das Skript bei Aufruf einen Dialog anzeigt. In diesem Dialog wird ein BUTTON-Steuerfeld integriert mit der Benennung &d. Das vorgestellte & bewirkt, dass der Button mit der genannten Tastenkombination aktiviert werden kann. Damit das Steuerfeld unsichtbar ist, wird ihm die Größe 1 x 1 zugewiesen.
FF_AddControl Dialog,"&d","BUTTON",40,170,1,1
Um sicher zu stellen, dass der Aufruf direkt erfolgen kann, wird außerdem der Fokus auf den Button gesetzt mit dem Befehl
FF_ActivateControl Dialog,"&d"
In der Abrufschleife erfolgt bei Erkennung von &d eine Sicherheitsabfrage. Wird diese bejaht, wird die Löschroutine aufgerufen.

'### Definitionen ( siehe oben)

'### Dialog mit &d-Schaltfläche

call main '————————————————————— Sub main

do

  Select Case FF_ShowDialog (Dialog)
  Case "&d"
      Antwort = msgbox("Soll das Skript " & SkriptName & vbNewline & _
          " mit allen dazugehörigen Komponenten wirklich gelöscht werden?", _
          vbYesNo + vbQuestion,"Sicherheitsabfrage")
      if Antwort = vbYes then
          SkriptKill = true
          exit do
      end if
  Case "CANCEL"
      exit do
  Case Else
  End Select

loop

FF_CloseDialog (Dialog) if SkriptKill then call KillSkript 'ggf. Skript komplett entfernen

End Sub '————————————————————— Sub KillSkript 'Skript mit allen Komponenten entfernen Dim Spfad const RegSchluessel = "\FF_Beispiel"

'### FixFotoScript.ini bereinigen TempFile = FF_GetFFPathEx(1) & "\FixFotoScript.ini" if objFS.FileExists(TempFile) then

  call IniBereinigung
  if Abbruch then exit sub

else

  msgbox "Die Datei FixFotoScript.ini konnte nicht gefunden werden." & vbNewLine & _
  "Der Löschvorgang wird abgebrochen!",vbExclamation,"Hinweis"
  exit sub

end if

'### zip-Archiv auf Wunsch sichern, dann löschen TempFile = FF_GetScriptPath & "" & objFS.GetBaseName(Skriptname) & ".zip" 'wenn das Archiv einen anderen Namen als das Skript hat, muss das hier berücksichtigt werden!!! if objFS.FileExists(TempFile) then

Antwort = msgbox("Soll das Archiv " & objFS.GetBaseName(Skriptname) & ".zip" & _

  " gesichert werden?",vbYesNo + vbQuestion,"Sicherheitskopie")

if Antwort = vbYes then

  SPfad = FF_EnterPath(true,"Wo soll die Sicherheitskopie angelegt werden?")
  if SPfad = "" then
      msgbox "Das Löschen des Skripts wird abgebrochen!",vbExclamation,"Hinweis"
      exit sub
  end if
  SPfad = SPfad & "\" & objFS.GetBaseName(Skriptname) & ".zip"
  objFS.CopyFile Tempfile, SPfad, true

end if objFS.DeleteFile TempFile,true end if

'### Skriptdatei löschen TempFile = FF_GetScriptPath & "" & Skriptname objFS.DeleteFile TempFile,true

'### evtl. beigepackte bzw. erzeugte Dateien und Ordner löschen TempFile = FF_GetScriptPath & "\Beipack.txt" 'Dateibeispiel if objFS.FileExists(TempFile) then objFS.DeleteFile TempFile,true

TempFile = FF_GetScriptPath & "\BeipackSammlung" 'Ordnerbeispiel if objFS. FolderExists (TempFile) then objFS. DeleteFolder TempFile,true

'### Registry-Daten löschen TempFile = "HKEY_CURRENT_USER\Software\Joachim Koopmann Software\FixFoto\Script" & RegSchluessel WshShell.RegDelete(TempFile)

'### 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, DateiTmp, ZielZeile, tmpString

DateiTmp = FF_GetFFPathEx(1) & "\FixFotoScript.tmp"

'### Wo befindet sich der Eintrag zum Skript? Set Zeile = objFS.OpenTextFile(TempFile, ForReading) zNr = 0 do Until Zeile.AtEndOfStream

  tmpString = Zeile.ReadLine
  zNr = zNr + 1
  if tmpString = "[Script]" then Anfang = zNr
  if tmpString = "File=.\" & Skriptname then
      Ende = zNr
      exit do
  end if

loop Zeile.Close

if Ende ⇐ Anfang then

  msgbox "Die Datei FixFotoScript.ini konnte nicht bereinigt werden." & vbNewLine & _
      "Der Löschvorgang wird abgebrochen!",vbExclamation,"Hinweis"
  Abbruch = true
  exit sub

end if

'### Zeilen ohne skriptbezogene Zeilen in DateiTmp übertragen Set Zeile = objFS.OpenTextFile(TempFile, ForReading) Set ZielZeile = objFS.CreateTextFile(DateiTmp, True) zNr = 0 do Until Zeile.AtEndOfStream

  tmpString = Zeile.ReadLine
  zNr = zNr + 1
  if zNr < Anfang or zNr > Ende then
      ZielZeile.WriteLine tmpString
  end if

loop Zeile.Close ZielZeile.Close

'### Umkopieren von DateiTmp nach FixFotoScript.ini (TempFile) objFS.CopyFile DateiTmp, TempFile, True objFS.DeleteFile (DateiTmp)

End Sub '—————————————————————
Bevor man diese Routine testet muss natürlich das Skript gesichert werden um es nachher wieder importieren zu können.