エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
WSHでイベントログの自動保存 - OKWAVE
各所からソースを引っ張ってきて動作に必要な部分だけ抜き出すとこんな感じですかね。 説明は各所にある... 各所からソースを引っ張ってきて動作に必要な部分だけ抜き出すとこんな感じですかね。 説明は各所にあるので割愛させていただきます。 'エクスポートファイルパス Const EXP_FILE_PATH = "C:\eventLog.exp" 'ZIP圧縮ファイルパス Const ZIP_FILE_PATH = "C:\eventLog.zip" 'エベントログの区切り Const SPACER = " " 'イベントログのエクスポート Call expEventLog(EXP_FILE_PATH) 'zip圧縮 Call CreateZIP(ZIP_FILE_PATH, EXP_FILE_PATH) MsgBox "完了" 'イベントログの取得 Private Sub expEventLog(expFile) Dim obj For Each obj In GetObject("winmgmts
2008/06/23 リンク