![](https://cdn-ak-scissors.b.st-hatena.com/image/square/48027eeeab7cea614f1d9bf2f5fbb0248dec6088/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-412672c5f0600ab9a64263b751f1bc81.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9JUUzJTgzJTk1JUUzJTgyJUExJUUzJTgyJUE0JUUzJTgzJUFCJTJGJUUzJTgzJTk1JUUzJTgyJUE5JUUzJTgzJUFCJUUzJTgzJTgwJUUzJTgyJTkyemlwJUUzJTgzJTk1JUUzJTgyJUExJUUzJTgyJUE0JUUzJTgzJUFCJUUzJTgxJUFCJUU1JTlDJUE3JUU3JUI4JUFFJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmcz01ZWMzMjQ3MzdhYWVhNzA1NDBkZDYxOTAxNGQ2MGFmNQ%26mark-x%3D142%26mark-y%3D57%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9NzcwJnR4dD0lNDBrb3VfdGFuYTc3JnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz01OTk5MThmMGQ1MWFkZmI5OTExN2FmY2QzMzQzMWYwOA%26blend-x%3D142%26blend-y%3D486%26blend-mode%3Dnormal%26s%3Dd49fc4a8d7d380a9453bfc4f69eddfd6)
エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
ファイル/フォルダをzipファイルに圧縮 - Qiita
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
ファイル/フォルダをzipファイルに圧縮 - Qiita
Scripting.FileSystemObject、Shell.Applicationを使っての実装。 実装内容は、空のzipファイルを作って... Scripting.FileSystemObject、Shell.Applicationを使っての実装。 実装内容は、空のzipファイルを作って、この空のzipファイルを書庫としてCopyHere関数を使って、圧縮対象のファイル/フォルダをコピーする。 コード Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Function zip(pthary() As String, zippth As String) As Boolean zip = False On Error GoTo Err Dim sfo As Object, app As Object Set sfo = CreateObject("Scripting.FileSystemObject") Set app = CreateObje