VBA：【PowerShell】zipファイルの解凍
ダウンロードしたドライバなどのファイルがzip形式だった場合に、解凍して指定の場所に保存する方法について説明していきます。
◆zipファイルの解凍
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Sub zip解凍() Dim psCommand As String Dim wsh As Object Dim dResult As String Dim zipFilePath As String Dim unzipPath As String '//zipファイルのファイル名までのパス' zipFilePath = "C:\Users\・・・・\edgedriver_win64.zip" '//解凍したファイルの保存先' unzipPath = "C:\Users\・・・・\zip解凍\" '//実行するPowerShellのコマンド作成。「 -Force」で上書き。' psCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted Expand-Archive -Path " & zipFilePath & " -DestinationPath " & unzipPath & " -Force" '" Set wsh = CreateObject("WScript.Shell") ' 'PowerShellのコマンド実行' '「unzipPath」で指定したフォルダに解凍されます。' dResult = wsh.Run(Command:=psCommand, WindowStyle:=0, WaitOnReturn:=True) Set wsh = Nothing MsgBox "完了" End Sub |
