日時フォルダを作成&開く

使い方

ソース中の「myMain = "C:\Users\XXX\Documents\00.日付" 」部分を修正後、「XXX.vbs」として保存。その後、ファイルをダブルクリック。
スタートアップなどに登録しておくと便利。
「クイックショートカット」に登録することで当日作業日付フォルダにワンタッチでアクセス可能になります。

作った背景

個人的に情報整理は「時系列」が一番しっくりくる。分類方法は、作業の種類、重要度など色々試してみたが、しばらくするとこの｢分類｣する作業が面倒になってきた。なかには適切に分類できない作業もでてたり､､､｡

それならば、作業日付で分類してみようと思い立ち、当日作業で使った資料など、すべて作業日付フォルダ上で実施したところ凄く自分にマッチ。

日をまたいで作業するような資料は、前日フォルダからコピーして使う。こうすることでバックアップも時系列で取得できるし、検索もしやすいのでグッド。

ソース

'*****************************************
'*名称:日時フォルダを作成／開く
'*機能:当日日付フォルダがない場合は作成、ある場合は開く
'*引数:なし
'*返値:なし
'*****************************************
Option Explicit
'変数定義
Dim myMain,myDate,myMonth,myDay
Dim objFS, wh

'PATHを指定する
myMain = "C:\Users\XXX\Documents\00.日付" 
'日付を格納
myDate = Date
'フォルダ名として使用できるように、「YYYYMM」に変換
myMonth = Mid(myDate, 1, 4) & Mid(myDate, 6, 2)
myDay = Mid(myDate, 9, 2)

Set objFS = CreateObject("Scripting.FileSystemObject")
Set wh = CreateObject("Wscript.shell")

'月フォルダある？
If objFS.FolderExists(myMain & "\" & myMonth) Then
'日フォルダある？
If objFS.FolderExists(myMain & "\" & myMonth & "\" & myDay) Then
'日フォルダない時、作成
Else: objFS.CreateFolder (myMain & "\" & myMonth & "\" & myDay)
End If
Else
'月フォルダ作成後、日フォルダ作成
objFS.CreateFolder (myMain & "\" & myMonth)
objFS.CreateFolder (myMain & "\" & myMonth & "\" & myDay)
End If

'フォルダを開く
wh.run (myMain & "\" & myMonth & "\" & myDay)
WScript.sleep 100
'wh.SendKeys "%VEO", True

'オブジェクト閉じる
Set wh = Nothing
Set objFS = Nothing