VBAで日本語が文字化けしないZIPファイルを作成したい

Question

いつもお世話になっております。

VBAで、PowerShellを用いて、ファイルの入ったフォルダをZIP形式で圧縮させようとしています。
そうしますと、解凍した時に出来上がるフォルダと中身のファイル名が一斉に文字化けしてしまいます。フォルダ名もファイル名もアルファベットにすれば解決するのですが、どうしてもひらがなや漢字を使用したいのです。

あれこれ調べましたところ、VBAエディターはSHIFT-JIS、PowerShellはUTF-8と、取り扱う文字コードが違う為に起こる文字化けとのことで、ファイル名を事前にUTF-8にエンコードすれば良いのだろうと、以下のようなコードを作成しました。

***略***
a_sPath = moji_Encode(a_sPath)
a_sZipPath = moji_Encode(a_sZipPath)
sCmd = "Compress-Archive -Path " & a_sPath & " -DestinationPath " & a_sZipPath & " -Force"
Set ex = sh.Exec("powershell -NoLogo -ExecutionPolicy RemoteSigned -Command " & sCmd)
***略***


Function moji_Encode(ByVal strOrg As String) As String
  With CreateObject("ScriptControl")
    .Language = "JScript"
    moji_Encode = .CodeObject.encodeURI(strOrg)
  End With
End Function

ところが、これだとZIPファイルが生成されません。PowerShellが「そんなファイルはない」と言っているようです。文字をエンコードしたら文字列も変
わりますから、当然といえば当然なのですが…。
PowerShellに、UTF-8でエンコードされた変数を渡すには、どのようにすれば良いのでしょうか？

以上、何卒宜しくお願い申し上げます。

2021/09/15追記
具体的にはこのような文字化けが起こります。

フォルダ名
わさび
を圧縮した所、解凍されたフォルダ名は
繧上＆縺ｳ
となりました。

また、フォルダ名
ボランティアリスト
を圧縮した所、解凍されたフォルダ名は
ボランティアリスト
となりましたが、中身のファイル名の前に
繝懊Λ繝ｳ繝・ぅ繧｢繝ｪ繧ｹ繝・
という余計な文字が追加されました。

Comments

[退会済みユーザー]

utf-8じゃなくてURLエンコードしてるように見えますが。文字化けだけじゃ何がどうおかしいか全く判らないので、元の文字列と出力後の文字列を載せた方が良いのでは。

[jyansinkai]

ご指導有難うございます。
URLエンコードでもUTF-8に変換されればそれで良いと考えておりましたが、似て非なるものなのでしょうか？
Powershell側で処理が実装できることは存じませんでした。しかし、VBAを軸として、VBAの処理の中のひとつにフォルダー圧縮を加えたいのです。

[退会済みユーザー]

URLエンコードは、生のバイト配列をテキストデータとして送れるようにするものなので、utf-8変換とは完全に別物です。

[jyansinkai]

ご指導有難うございます。
なるほど、それは完全に別物ですね…。Functionを見直します。その前に、このように「変数内の文字コードを変換してPowerShellに渡す」という方針自体は合っておりますでしょうか？

[退会済みユーザー]

まず解凍ソフトがutf-8に対応していない古いものであれば、utf-8にするだけ無駄です。解凍ソフトに何を使用するか、という所から始まります。ファイル名にShift_JISで使用できない文字を格納したい、とかであれば、utf-8を使わざるを得ないのですが。

[jyansinkai]

ソフトに依存するのですね。解凍に使用するソフトはWIN10に標準装備されたもののみ使用します。WIN10のデスクトップ上でダブルクリックした際に正しい名前で解凍が完了するようにしたいです。

[Daregada]

Windows 10のバージョン、VBAを動かしているOfficeのバージョン、PowerShellのバージョンを書いてください。
こちらで試したところ、ファイル名のエンコーディングを変更することなしに、日本語を含むファイル名・フォルダー名のフォルダーから、文字化けせずにZIPファイルを作成できました。

[退会済みユーザー]

私も試してみましたが、確かに文字化けしませんね。

[jyansinkai]

ご指導誠に有難うございます。
使用しているソフトの各バージョンは以下の通りです。

Win10Pro　バージョン1909
Microsoft Office Home and Business 2016
PowerShell　5-1-18362-1171

[Daregada]

こちらは、
Windows 10 Home 21H1
Microsoft Office 365
PowerShell 7.1.1
ですね。違いすぎてどれが原因だかわかりませんが。

[退会済みユーザー]

Win10なので、環境的には問題なさそうに見えますけどね。文字化け時の、実際の入力文字列と出力結果を提示してください。

[jyansinkai]

フォルダ名
わさび
を圧縮した所、解凍されたフォルダ名は
繧上＆縺ｳ
となりました。

また、フォルダ名
ボランティアリスト
を圧縮した所、解凍されたファイル名は
ボランティアリスト
となりましたが、中身のファイル名の前に
繝懊Λ繝ｳ繝・ぅ繧｢繝ｪ繧ｹ繝・
という余計な文字が追加されました。

[退会済みユーザー]

ここは追記修正依頼欄なので、環境やテストデータ等の追加情報は質問文を編集して追記してください。回答者はここ読まない場合もあるので。

[Daregada]

これは、Shift_JISと見なす文字列に実際にはUTF-8のバイト列が入っていて、それをUTF-8に変換したときの文字化け、かな。

[jyansinkai]

ご指導有難うございます。
UTF-8をSHIFT-JISと勘違いし、余計なことをしているということですか…。
すると、圧縮されたフォルダの圧縮データに手を加えて、「これはUTF-8ですよ」と教えてあげれば解決、ということに相成りますでしょうか？

[退会済みユーザー]

こちらの環境では、テストで "わさび.txt" を格納したZIPのutf-8フラグをバイナリエディタで書き換えてエクスプローラーで読ませてみましたが、フラグのON/OFFに関係なく正しいファイル名を読む事が出来ました。7-Zipだと、フラグをOFFにすると、"繧上＆縺ｳ.txt" となります。理由は判りませんが、そちらの環境的な問題で、エクスプローラーがutf-8のファイル名を解釈出来ていないような気がします。
Shift_JISファイル名のZIPファイル、utf-8ファイル名のZIPファイルを作ってみたりして、それぞれ解凍出来るかテストしてみてください。
また、他の解凍ソフトでは普通に解凍できたりしませんか？

[jyansinkai]

7ZIPですと全く文字化けを起こさずに解凍することが出来ました。
Shift_JISファイル名のZIPファイル、utf-8ファイル名のZIPファイルというのは、どのように作成するのでしょうか？

[退会済みユーザー]

私の回答のコメントと、サンプルコード追記したの全く読んでないんですか…？
最低限サンプルコードの動作確認と結果の報告くらいはしてください。（追記修正依頼欄なので、回答のコメントにお願いします）

Answer 1

解凍時の文字化けは、ZIPファイルのヘッダか、解凍ソフトのどちらかに問題があると思われます。ZIPのヘッダには、utf-8を使用しているかのビットフラグが存在し、そこを見て解凍ソフト側が文字コード処理を切り替えるように実装しているかどうかです。7-Zip辺りは、Shift_JISでファイル名を突っ込んでも、そのビットがOFFなら正しいファイル名で解凍してくれると思いますが。
割と根が深い問題なので、ヘッダをアテにせず、独自に文字コード判定を行っている解凍ソフトもあります。

考えられる解決策としては、

• 何とかしてPowerShellにファイル名を渡す(PowerShellのスクリプトファイルを出力して実行するとか？）

エンコードせずにpowershellコマンドに渡して、文字化けしない事を確認しました。(Windows10)

• Compress-Archiveの代替手段を探す
• 出力されたZIPを何らかの手段で修復・変換する

（ヘッダがおかしいか、ファイル名がおかしいかを特定する必要あり）

こんなもんでしょうか。

これで解消！「KB2704299」でCompress-Archiveの文字化け対処
こんな記事がありましたが、上記環境に該当してないですか？

こちらで動作確認したコードを載せておきます。日本語のフォルダ名やファイル名でも、特に問題ありませんでした。
[2021/09/15 15:51]
Shift_JISファイル名のZIP出力処理を追記しました。

Option Explicit

Private Declare PtrSafe Function ShellExecuteW Lib "shell32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As LongPtr, _
    ByVal lpFile As LongPtr, _
    ByVal lpParameters As LongPtr, _
    ByVal lpDirectory As LongPtr, _
    ByVal nShowCmd As Long _
) As LongPtr

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long)

Const SW_HIDE = 0   'ウィンドウを表示しない
Const SW_SHOW = 5   'ウィンドウを現在の位置とサイズで表示

Private Sub CommandButton1_Click()
    Dim src As String
    src = "c:\test\あいうえお"

    Call CreateZipWsh(src, "c:\test\test_wsh.zip")
    Call CreateZipShellExecuteW(src, "c:\test\test_shellw.zip")
    Call CreateZipShellExecuteW_SJIS(src, "c:\test\test_shellw_sjis.zip")
End Sub

'WScript.Shellで実行
Private Sub CreateZipWsh(ByVal src As String, ByVal dest As String)
    Dim parameter As String
    Dim oWsh As Object
    Dim oExec As Object
    
    parameter = "-NoLogo -ExecutionPolicy RemoteSigned -Command Compress-Archive -Path '" & src & "' -DestinationPath '" & dest & "' -Force"
    Set oWsh = CreateObject("WScript.Shell")
    Set oExec = oWsh.Exec("powershell.exe" & " " & parameter)
    Do While oExec.Status = 0
        Sleep 1
    Loop
    Set oExec = Nothing
    Set oWsh = Nothing
End Sub

'ShellExecuteWで実行
Private Sub CreateZipShellExecuteW(ByVal src As String, ByVal dest As String)
    Dim exe As String
    Dim operation As String
    Dim parameter As String
    
    operation = "open"
    exe = "powershell.exe"
    parameter = "-NoLogo -ExecutionPolicy RemoteSigned -Command Compress-Archive -Path '" & src & "' -DestinationPath '" & dest & "' -Force"
    Call ShellExecuteW(0, StrPtr(operation), StrPtr(exe), StrPtr(parameter), 0, SW_HIDE)
End Sub

'ShellExecuteWで実行(Shift_JIS出力)
Private Sub CreateZipShellExecuteW_SJIS(ByVal src As String, ByVal dest As String)
    Dim exe As String
    Dim operation As String
    Dim cmd As String
    Dim parameter As String
    
    operation = "open"
    exe = "powershell.exe"
    cmd = "Add-Type -AssemblyName System.IO.Compression.FileSystem;"
    cmd = cmd & "[IO.Compression.ZipFile]::CreateFromDirectory('" & src & "', '" & dest & "', [IO.Compression.CompressionLevel]::Optimal, $true, [Text.Encoding]::GetEncoding('Shift_JIS'));"
    parameter = "-NoLogo -ExecutionPolicy RemoteSigned -Command " & cmd
    Call ShellExecuteW(0, StrPtr(operation), StrPtr(exe), StrPtr(parameter), 0, SW_HIDE)
End Sub

Comments

[jyansinkai]

ご指導有難うございます。
解凍ソフトは、WINDOWS10に標準装備されたもの一択となっておりまして、WIN10のデスクトップ上でZIPをダブルクリックした際に正しい名前で解凍されるように作成したいです。

[退会済みユーザー]

https://qiita.com/tats-u/items/5336bc780a4361e7b780
このようなツールを作っている人もいますので、一度見てみるとよいかもしれません。
これで修復可能であれば、出力したファイルをツール通すようにしてみるというのも手かも。
utf-8のフラグをファイル書き換えでOFFにするだけで解凍できるなら、それだけでいいかもしれませんが。バイナリエディタでZIPのヘッダ覗いて見た方がいいですね。

[退会済みユーザー]

回答に追記しました。

[jyansinkai]

拝見致しました。ZIP形式というのは世の中のルールを相当に破っているもののようですね…。文字が化けるZIPの11ビット目は「ｼ」となっておりました。

[退会済みユーザー]

回答にこちらでテストしたサンプルコードを載せてみましたが、そちらで実行してみると結果はどうでしょう？（フォルダ名とかは適当にそちらに合わせて変えてください）

[退会済みユーザー]

試験的に、ZipFileクラスを使用してShift_JISファイル名で出力する処理を追記しました。Compress-Archiveと全く同じ動作にはならないので注意してください。（同名ファイルが存在するとエラーになったりする）

[jyansinkai]

C:\testというフォルダを作成し、その中に「あいうえお.txt」というファイルを入れ、ご提示頂いたマクロをsrc = "c:\test\あいうえお.txt"と変更して実行させた所、c:\test\の中に3つの圧縮ファイルができました。
WIN10標準機能のZIPで、出来上がった3つの圧縮ファイルを解凍した結果、名前の変化は以下の通りでした。
test_wsh　：　縺ゅ＞縺・∴縺・txt
test_shellw　：　縺ゅ＞縺・∴縺・txt
test_shellw_sjis　：　（解凍できず）

また、7-Zipで解凍した結果は以下の通りでした。
test_wsh　：　あいうえお.txt
test_shellw　：　あいうえお.txt
test_shellw_sjis　：　（何も出てこない）

[退会済みユーザー]

ZipFile.CreateFromDirectoryはフォルダに対してじゃないと機能しないので、Shift_JIS圧縮はフォルダにファイル入れて試してみてください。

[jyansinkai]

src = "c:\test\あいうえお￥あいうえお.txt"とし、再度実行しました所、test_shellw_sjisはフォルダ名も中身も名前が化けることなく解凍することができました。test_wshとtest_shellwについては上と同様、文字化けした結果となりました。

[退会済みユーザー]

そうなると、やはりそちらの環境の不具合かは判りませんが、エクスプローラーがShift_JISのZIPしか扱えない状態なのだと思われます。ZIPファイルそのものには、恐らく問題はありません。環境を修復するのが望ましいですが、原因を特定するのは困難だと思われますので、応急処置的な対処としては、Compress-Archiveの使用をやめて、CreateZipShellExecuteW_SJISの処理のようにShift_JISファイル名で出力する方法を取れば、ひとまず文字化けは解消されるでしょう。
もしくは、解凍時に7-Zip等のutf-8に対応した解凍ソフトを使用するようにしてください。

[jyansinkai]

CreateZipShellExecuteW_SJISの処理が非常に参考になりました。この方法で環境をだましだまし使用していこうと思います。たくさんのご指導、誠に有難うございました。