' Dateien entsperren und in den Vorlagenordner verschieben
'
' Dieses Skript stammt aus der Da|ten|bank|Ma|nu|fak|tur von Raphael Hein
' https://www.datenbankmanufaktur.de
' 05.01.2024

Set oArgs = WScript.Arguments
Set oApp = CreateObject("Shell.Application")
Set oFso = CreateObject("Scripting.FileSystemObject")

sApp = "C:\DaBaMa\unblock.exe"
sFolder = "C:\Users\Raphael Hein\MeineVorlagen\" 

If oArgs.Count = 0 Then
    MsgBox "Ziehen Sie alle Dateien, die verarbeitet werden sollen, per Drag & Drop auf dieses Skript.", vbInformation, "Info"
Else
   For i = 0 To oArgs.Count - 1
      oApp.ShellExecute sApp, """" & oArgs(i) & """", "", "", 0
      WScript.Sleep 1000  ' unblock etwas Zeit zum Entsperren lassen
      oFso.CopyFile oArgs(i), sFolder, True 
      oFso.DeleteFile oArgs(i)  
   Next
End If
