趣味プログラミングblog

会社で使っているNASのリンク切れが激しい。。。2回目の呟き

リンク先修正時のリンク先存在チェックはひとまず置いておいて、NASのパスだけでも修正しようと久々にリンク先を取得するマクロを動かしてみた。

リンク先を取得するのにCreateShortcutを使ってるんだけど、引数の文字数が256バイトを超えるとエラーを吐くので、対策を考えてみた。

CreateObject("WScript.Shell").CreateShortcut(フルパスファイル名)

今回ほバッチファイルの処理で、今日の曜日を見て指定と一致すれば実行するバッチファイルの曜日分岐について。

進捗を更新するときは、赤字太字下線にすること。


昔、wordの週次報告で上記のようなお達しがあり、
Ctrl+Shift+Rで変換できるようVBAを作ってショートカットキー登録をした。

そのマクロがパソコンの更新でどっかいっちゃったので
作り直すついでにご紹介。

「会議室の扉の開閉状態を監視するシステムを作った話」の第三弾。

前回、「会議室の扉の開閉状態を監視～更新日時が最新以外のファイルを削除するVBS～」の投稿で、
スクショをNASに保存して最新以外のファイルを消す方法を書いた。

けど、自動でNASに保存するWinshotアプリがファイル名に使用する番号の上限に達すると
停止するという仕様が判明して上手くいかず。。。


今回は、固定ファイル名でスクリーンショットを撮って、それをリネームすることでNASに保存する方法について。

前回、「会議室の扉の開閉状態を監視するシステムを作った話」について書いた。

扉の開閉状態を表示したWEBページを常時表示して、
それをスクショでNASに保存したいけど、保存先に同じファイルがあると困るし、
公開フォルダに複数ファイル置いてあるとぱっと見で判断できずひと手間増える。


今回は、その対策として、
指定したフォルダの最新以外のファイルを消すVBScript（ソース①）を作ってみた。

---