wie wärs denn mit nem script und passwort

crypt
Code:
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
passwort = InputBox("Passwort")
command = "a d:\vb-script\7zipcrypt.zip d:\vb-script\7zip_crypt.txt -p" & passwort
crypt=sh.run(chr(34) &"C:\Program Files\7-Zip\7z.exe" & chr(34)& command)
fso.deletefile "d:\vb-script\7zip_crypt.txt"
decrypt
Code:
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
passwort = InputBox("Passwort")
command = "e d:\vb-script\7zipcrypt.zip -od:\vb-script -p" & passwort
crypt=sh.run(chr(34) &"C:\Program Files\7-Zip\7z.exe" & chr(34)& command)