3

フォルダー内のすべてのファイルを圧縮し、パスワードで保護する必要があります。

私はグーグルで調べて、Windowsの組み込み機能を使用する1つのソリューションを見つけました. コードは次のようになります。

folder1 = "F:\WLMS_TEAM\TOUHID\Script"
zipfile = "F:\WLMS_TEAM\TOUHID\MyTmp.zip"

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.OpenTextFile(zipfile, 8, True).Write "PK" & Chr(5) & Chr(6) _
  & String(18, Chr(0))

Set ShellApp = CreateObject("Shell.Application")
Set zip = ShellApp.NameSpace(zipfile)
zip.CopyHere folder1
WScript.Sleep 2000

パスワードで保護することはできますか?

または、WinZip (他のツールではなく) を使用して同じことを達成するための他のコードを支援できる場合。

または、事前に生成された zip ファイルをパスワードで保護する別のコードを用意しても問題ありません。

4

2 に答える 2

1

次のように、コマンドラインで WinZip を実行できます。

winzip32.exe -a -s"Password" "C:\path\to\your.zip" *.*

VBScript でラップ:

Set sh = CreateObject("WScript.Shell")
sh.Run "winzip32.exe -a -s""Password"" ""C:\path\to\your.zip"" *.*", 0, True

Shell.Applicationオブジェクトがパスワードで保護された zip ファイルの作成を許可しているとは思えません。

于 2015-06-22T08:21:37.427 に答える