*

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

関連記事

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

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

記事を読む

no image

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

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

記事を読む

日本語配列のタッチパッド付き折りたたみキーボードOmikamoとEWINを比較してみた

はじめにiPad mini用に、タッチパッド付きの折りたたみの日本語キーボードを探していて、以下の2

記事を読む

no image

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

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

記事を読む

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

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

記事を読む

no image

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

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

記事を読む

no image

バックアップのすゝめ 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に交換し

記事を読む

広告Link

Comment

  1. xtomoki より:

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

  2. xtomoki より:

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

Message

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

広告Link

日本語配列のタッチパッド付き折りたたみキーボードOmikamoとEWINを比較してみた

はじめにiPad mini用に、タッチパッド付きの折りたたみの日本語キ

no image
M1 MacでのBlu-rayレコーダー・nasne視聴環境

nasneをメインに使っていたけど、キーワード指定の自動録画ができない

iPhone13とMacBookPro14とAppleWatch7買いました

iPhone13ハワイで買ったiPhone11からの買い替えで、カナダ

Mac mini 2018とMacBookPro13(M1)購入

だいぶ久しぶりにブログを更新します。現在のMac環境の備忘録として。メ

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

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

→もっと見る

PAGE TOP ↑