かとう中小企業診断士事務所

Sub main()

    'ファイルシステムオブジェクトの作成
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    'ファイルオブジェクトの作成
    Dim fileObj As Object
    
    'シェルオブジェクトの作成
    Dim shellObj As Object
    Set shellObj = CreateObject("Shell.Application")
    
    Dim zipObj As Variant
    Dim ret As Long
    
    'パスワードの指定
    Dim strPass As String
    strPass = "a"
    
    'ファイル内の全てのファイルを調べる
    For Each fileObj In FSO.GetFolder("C:\temp\01_解凍前").Files

         '拡張子のチェック
         If FSO.GetextensionName(fileObj) = "zip" Then

            ' 解凍
            Set zipObj = shellObj.Namespace(fileObj.Path).Items
            Application.SendKeys strPass & "{Enter}"
            ret = shellObj.Namespace("C:\temp\02_解凍後").CopyHere(zipObj)
          
          End If
    
    Next fileObj
    
    '後処理
    Set FSO = Nothing
    Set shellObj = Nothing
    Set fileObj = Nothing
    Set zipObj = Nothing

    If ret > 0 Then
        MsgBox "失敗しました。", 48
    End If

End Sub