*

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

関連記事

no image

バックアップのすゝめ Windows版

パソコンのデータのバックアップしてますか? ウィルス、ハードウェアトラブル、間違って削除したなど

記事を読む

映画「電車男」でエルメスさんの心を動かした付箋メモは僕が考えました

実は、『電車男』の映画制作に関わっています! 物語の終盤で、電車男(山田孝之)がエルメス(中谷

記事を読む

no image

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

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

記事を読む

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

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

記事を読む

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

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

記事を読む

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

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

記事を読む

Buffalo LinkStation LS-XH1.0TL HDD交換

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

記事を読む

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

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

記事を読む

no image

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

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

記事を読む

no image

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

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

記事を読む

広告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 ↑