*

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

関連記事

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

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

記事を読む

MacでJOYSOUNDのうたスキ動画をダウンロードする方法

ぐぐってみると、"Macで"というのはなかったので、書いてみる。 ほぼWIndowsと同じで、

記事を読む

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

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

記事を読む

no image

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

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

記事を読む

PCSync Ver 1.10 リリース

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

記事を読む

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

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

記事を読む

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

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

記事を読む

Buffalo LinkStation LS-XH1.0TL HDD交換

いままで、Buffalo LinkStation LS-H500GLを、 2TBのHDDに交換し

記事を読む

Intel SSD 320シリーズ ファームウェア公開!アップデート手順

Intel、320シリーズに不具合(容量が8MBになる) | 知的シコウ The AM

記事を読む

Mac用に12.5mm厚対応の外付け2.5インチHDDケースを購入

MacのSSDの容量が足りないので、IOデータ製のポータブルの外付けHDD(HDPA-UT1.0

記事を読む

広告Link

Comment

  1. xtomoki より:

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

  2. xtomoki より:

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

Message

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

広告Link

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購入しました。前モデルも魅力だ

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

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

→もっと見る

PAGE TOP ↑