zip 内のファイル一覧を取得したいのですが、 サンプルが見つからなくて何とか以下のようなものはできました。 どこか問題はないでしょうか？とくに item.GetFolder が正規のメソッドとして 存在するのかが気になっています。 また、Folder3、FolderItem2のリファレンスはありますでしょうか？
Option Explicit Dim m_fso Dim m_shell Sub main() Set m_fso = CreateObject("Scripting.FileSystemObject") Set m_shell = CreateObject("Shell.Application") ZipList "c:\test.zip" End Sub Function ZipList(FileName As String) Dim folder Set folder = m_shell.Namespace("c:\test.zip") ZipListSub folder End Function Function ZipListSub(folder As Variant, Optional path As String = "") Dim item For Each item In folder.Items If item.IsFolder Then ZipListSub item.GetFolder, item.path & "/" Else Debug.Print path & item End If Next End Function
