Windows7のライブラリ機能を使って、ネットワーク共有された録画フォルダをまとめると便利!
テレビの録画は、アースソフトPT2を搭載した録画専用PCで行なっています。ファイル共有をしていて、見るときはクライアントPCから直接ファイルを開いています。
2番組同時録画やBS放送は、HDDの負荷分散、ファイル断片化を少なくするために、録画先のHDDを別にしています。
なので時々BSで録画したものを見忘れてしまうんですよね^^;
どうにかならないかなーと思ってるところで、Windows7のライブラリ機能です。
登録したフォルダをまとめて表示することができるライブラリ機能・・・ただし、ネットワーク共有のフォルダには対応していないので、裏技を使います。。
参考:Windows 7 へのネットワークフォルダのライブラリーへの登録について | OKWave
これで環境は整ったのですが、ひとつ問題が。まず正規の方法でネットワーク共有フォルダが対応不可なのは、検索用・表示用のインデックスが作成されないためなんですね。それを強制的に表示しているため、録画ファイル数が多い場合、表示が遅い。
ファイル移動スクリプト作成
なので、一定期間(自分の場合は二週間)経過した録画ファイルは、サブフォルダに移動するようにしました。動きは次の通り。
- 録画した日付(ファイルの更新日付)を見て、
- 指定した日数が経過した録画ファイルを、
- 指定したサブディレクトリにコピーする
バイナリで作るかと思ったけど、VBSスクリプトでいける範囲だと思い作ってみました。
Option Explicit On Error Resume Next</p> <p>Dim objFso 'FileSystemObject<br /> Dim objWshShell 'WshShellObject<br /> Dim objDir 'カレントディレクトリ<br /> Dim objFile 'ファイルプロパティ<br /> Dim dirFile 'ディレクトリファイル<br /> Dim fileName 'ファイル名<br /> Dim cmpDate '比較日付<br /> Dim scriptName 'スクリプトファイル名<br /> Dim subDirName '移動先下層フォルダパス</p> <p>'スクリプトファイル名<br /> scriptName = "RecFileMove"</p> <p>'移動先フォルダパス("\"で囲む)<br /> subDirName = "\PastRec\"</p> <p>'比較日付作成<br /> cmpDate = DateAdd("d", -14, Date) '2週間前として-14</p> <p>'ファイルシステムオブジェクト取得<br /> Set objFso = WScript.CreateObject("Scripting.FileSystemObject")<br /> If Err.Number = 0 Then<br /> 'フォルダオブジェクト取得<br /> Set objWshShell = WScript.CreateObject("WScript.Shell")<br /> 'カレントディレクトリパス作成<br /> Set objDir = objFso.GetFolder(objWshShell.CurrentDirectory)</p> <p> If Err.Number <> 0 Then<br /> WScript.Echo "エラー2: " & Err.Description<br /> End if</p> <p> 'フォルダ内ループ<br /> For Each dirFile In objDir.Files<br /> 'プロパティ取得<br /> Set objFile = objFso.GetFile(dirFile.Path)<br /> If Err.Number <> 0 Then<br /> WScript.Echo "エラー3: " & Err.Description<br /> End if<br /> '比較日付より古いか<br /> If cmpDate > objFile.DateLastModified Then<br /> '古い場合"<br /> 'ファイル名のみ取り出す<br /> fileName = objFso.getFileName(dirFile.Path)<br /> 'スクリプトは移動しない<br /> If fileName <> scriptName Then<br /> '移動実行<br /> objFso.MoveFile dirFile.Path, objWshShell.CurrentDirectory & subDirName & fileName<br /> End if<br /> Else<br /> '新しい場合は何もしない<br /> End if<br /> Next<br /> Else<br /> WScript.Echo "エラー1: " & Err.Description<br /> End If</p> <p>Set objFso = Nothing<br /> Set objWshShell = Nothing<br /> Set objDir = Nothing<br /> Set objFile = Nothing<br /> Set dirFile = Nothing<br /> Set fileName = Nothing<br /> Set cmpDate = Nothing<br /> Set subDirName = Nothing<br />
タスクスケジュールへ登録
上記ソースを、メモ帳で新規ファイル作ってコピペ。
拡張子を[.vbs]にすれば動作可能だと思います。
そして、タスクスケジュールで実行するように登録(1日1回実行)すれば完成です。
これでより便利な録画・視聴環境が整いました!
広告Link
関連記事
-
-
【人柱】D810でSD変換CFカードを使用してEye-Fiカードを使ってみた
D810のCFスロットでEye-Fiカードを使用しようとして、試行錯誤した備忘録です。 チャレ
-
-
Buffalo LinkStation Lion対応ファームウェアアップデート来ました
OS X Lionリリース!新型MacBookAirも! | 知的シコウ ↑でも書いていた、LS-X
-
-
日本語配列のタッチパッド付き折りたたみキーボードOmikamoとEWINを比較してみた
はじめにiPad mini用に、タッチパッド付きの折りたたみの日本語キーボードを探していて、以下の2
-
-
Intel、320シリーズに不具合(容量が8MBになる)
Intel SSD 320に「容量8MB」になる不具合、インテルも認識 The AMD's Cafe
-
-
auのフェムトセルを申し込んだ
実はいま、地下(ドライエリア有)に居室していて、メールが遅れなかったり、通話が途切れたりと、
-
-
Intel SSD 320シリーズ 160GB 海外比較レビュー
Intel SSD の新製品 320シリーズの160GBを購入予定です。 ぐぐっていたら、ドイツの掲
-
-
バックアップのすゝめ Windows版
パソコンのデータのバックアップしてますか? ウィルス、ハードウェアトラブル、間違って削除したなど
-
-
Intel SSD 320シリーズ 160GBモデル と Windows7 購入
Intel SSD 320 160GB SSDSA2CW160G3K5を予定通り購入。 Window
-
-
auのフェムトセルが届いたので設置! とても快適です
auのフェムトセルを申し込んだ | knowledge tree – ナレッジツリー こちらで
-
-
Buffalo LinkStation LS-XH1.0TL HDD交換
いままで、Buffalo LinkStation LS-H500GLを、 2TBのHDDに交換し
Comment
ブログ書いた→ Windows7のライブラリ機能を使って、ネットワーク共有された録画フォルダをまとめると便利! http://t.co/mjLx3qp6 via @xtomoki きちんとVBSスクリプト書いたの初めてだったわ
Windows7のライブラリ機能を使って、ネットワーク共有された録画フォルダをまとめると便利! http://t.co/mjLx3qp6 @xtomokiさんから