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回実行)すれば完成です。

これでより便利な録画・視聴環境が整いました！