日付を名前にしたフォルダーを任意の場所へ作るVBスクリプト

XactiのSDカードとiPhoneの写真データのPCへのバックアップを月に2回ほど行っています。今までは毎回、

1. 写真を保存したSDカードを挿入
2. My Picturesを開き、日付を名前にしたフォルダを作成
3. SDカードからパソコンへファイルを移動

だったのが、このスクリプトを実行することで 2. を省略するできるようになります。ショートカットキーなどに登録しておくとさらに便利です。

メモ帳などで以下をコピー＆ペーストし、保存してください。ファイル名はなんでもよく、拡張子に".vbs"をつけてください。

[javascript]

strMonth = Month(Date)

If Len(strMonth) = 1 Then

strMonth = "0" & strMonth

End If

strDay = Day(Date)

If Len(strDay) = 1 Then

strDay = "0" & strDay

End If

strYear = Year(Date)

strFolderName = "F:\My documents\My Pictures\" & strYear & "-" & strMonth & "-" & strDay

'ダブルクォーテション内にフォルダを作成したい場所を記述する。

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.CreateFolder(strFolderName)

[/javascript]

＊2011/01/04 フォルダ名のフォーマットを"yyyymmdd"から"yyyy-mm-dd"に変更しました。これはEye-fiカードが出力するフォルダ名と同じものです。