*

Windows7のライブラリ機能を使って、ネットワーク共有された録画フォルダをまとめると便利!

公開日: : 最終更新日:2013/08/15 PC DIY , , ,


テレビの録画は、アースソフト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

関連記事

Intel SSD 320シリーズ 160GBモデル と Windows7 購入

Intel SSD 320 160GB SSDSA2CW160G3K5を予定通り購入。 Window

記事を読む

auのフェムトセルを申し込んだ

実はいま、地下(ドライエリア有)に居室していて、メールが遅れなかったり、通話が途切れたりと、

記事を読む

no image

Intel、320シリーズに不具合(容量が8MBになる)

Intel SSD 320に「容量8MB」になる不具合、インテルも認識 The AMD's Cafe

記事を読む

no image

Intel SSD 320シリーズ 160GB 海外比較レビュー

Intel SSD の新製品 320シリーズの160GBを購入予定です。 ぐぐっていたら、ドイツの掲

記事を読む

auのフェムトセルが届いたので設置! とても快適です

auのフェムトセルを申し込んだ | knowledge tree – ナレッジツリー こちらで

記事を読む

no image

Buffalo LinkStation Lion対応ファームウェアアップデート来ました

OS X Lionリリース!新型MacBookAirも! | 知的シコウ ↑でも書いていた、LS-X

記事を読む

Windows7でマイドキュメントやマイミュージック、デスクトップフォルダなどの保存先HDDを交換する方法

使用しているWindows7環境は、自作PCで、システム用のCドライブはIntelのSSD、

記事を読む

PCSync Ver 1.10 リリース

フリーソフトのPCSyncを更新しました。 主な変更点は以下のとおりです。 ・calc.exeではな

記事を読む

Buffalo製 LinkStation LS-XH2.0TLのHDDを4TBに交換しました

  先日の外付けHDD不良を受けて、NASのHDDをWersternDigitalのRedブラ

記事を読む

【人柱】D810でSD変換CFカードを使用してEye-Fiカードを使ってみた

D810のCFスロットでEye-Fiカードを使用しようとして、試行錯誤した備忘録です。 チャレ

記事を読む

広告Link

Comment

  1. xtomoki より:

    ブログ書いた→ Windows7のライブラリ機能を使って、ネットワーク共有された録画フォルダをまとめると便利! http://t.co/mjLx3qp6 via @xtomoki きちんとVBSスクリプト書いたの初めてだったわ

  2. xtomoki より:

    Windows7のライブラリ機能を使って、ネットワーク共有された録画フォルダをまとめると便利! http://t.co/mjLx3qp6 @xtomokiさんから

Message

メールアドレスが公開されることはありません。

広告Link

【即売会】桜高新入生歓迎会!!7じかんめ【参加】

けいおん!同人誌即売会に参加いたします。スペース:1組03番 stud

MacBook 12インチ Retina購入 フォトレビュー

MacBook 12インチ Retina購入しました。前モデルも魅力だ

【Retina iMac】iMac5Kモデルを購入した理由【ついに買ったぞ】

iMac 5K モデルを購入しました!!!スペックは以下のとおり。CP

【iPhone6s】今までで1番消極的にiPhoneを購入しました【購入レビュー】

iPhone5sを発売2日目からゲットしたのは2年前のこと。今回、iP

AppleWatch 42mm ステンレススチール ミラネーゼループ 3日間使用レポート

4/10にAppleStoreで予約し、4/24の発売日にヤマ

→もっと見る

PAGE TOP ↑