imaicの日記： フォルダ管理 2
日記 by
imaic
マイドキュメントがうじゃうじゃになってしまう私のような人へ。
マイドキュメントの下に今日の日付のフォルダを作り、デスクトップにショートカットを作るスクリプト。
MyWork.vbsとかで保存して、スタートアップに登録すればいい感じ。
=====ここから=====
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strDailyWork = objShell.SpecialFolders("MyDocuments") & "\" & FormatDateTime(Date,1)
if Not objFSO.FolderExists(strDailyWork) Then objFSO.CreateFolder(strDailyWork)
strShortCut = objShell.SpecialFolders("DeskTop") & "\MyWork.lnk"
if objFSO.FileExists(strShortCut) Then objFSO.DeleteFile(strShortCut)
Set objShortCut = objShell.CreateShortcut(strShortCut)
objShortCut.TargetPath = strDailyWork & "\"
objShortCut.Save
'WScript.Echo strShortCut & "にショートカットを作成しました。"
=====ここまで=====
2006年12月1日と2006年12月01日 (スコア:1)
strDailyWork = objShell.SpecialFolders("MyDocuments") & "\" & right("0000" & Year(Date),4) & "年" & right("00" & Month(Date),2) & "月" & right("00" & Day(Date),2) & "日"
と修正しました。もっとスマートなコーディングがあるんでしょうけど。これだとフォルダ名「2006年12月01日」で作成されました。
Re:2006年12月1日と2006年12月01日 (スコア:1)
年はそのままでいいんじゃないかなあ。
手抜きですけど(^^;