趣味プログラミングblog

そういや最近ブログにアップしたよな。。。ない！！！


どうやら、テキストを書いただけで、UPし忘れてた。


以下、4/1に書いた内容。ソースがどうだったか思い出せない。。。

---

前に投稿した記事「PowerShellを使ったファイルのｚｉｐ化」を見ていたらふと気になった。


コマンドプロンプトで簡単に作れるんじゃない？

で、ググったらいいサイトが見つかった。

コマンドプロンプトから PowerShell を実行する
https://qiita.com/ww24/items/7d52df13fef5bc54e149


さっそく試してみる。

set tPath="C:\Test\pingTest"
set fName="C:\Test\pingTest.zip"
powershell -Command Compress-Archive %tPath% %fName%


コマンドプロンプトを起動して、３行をコピペしたら無事にZip化成功。


コマンドプロンプトいけるならVBSもいけるんじゃね？

ググったらいいサイトが見つかった。

【VBScript】PowerShellのコマンドを実行する
https://syutaku.blog/vbscript-exec-powershell-cmd/


さっそく試してみる。

Option Explicit

dim tPath : tPath ="C:\pingTest"
dim fName : fName = tPath & ".zip"

' PowerShellのコマンド
dim psCmd : psCmd = "powershell -Command Compress-Archive """ & tPath & """ """ & fName & """"

' WSHオブジェクトの作成
Dim objShell
Set objShell = CreateObject("WScript.Shell")

' PowerShellコマンドの実行
objShell.Run "powershell -ExecutionPolicy RemoteSigned -Command " & psCmd, 0

' WSHオブジェクトの破棄
Set objShell = Nothing


どちらもネットで拾ったソースのPowerShellコマンド部分を変えただけ簡単に作れた。

Zipファイルを１つ作るならこれでもいいけど、
いっぱい作ろうと思ったら複数行のコマンドを用意して
powershellの呼び出しは１回で済ませた方が良さそう。
(試しに動かしてみたらいけた。)

VBScriptのソースコードファイルはこちら。