VBSによる日付のフォルダを生成するスクリプト。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
'================================================= ' 本日の日付のフォルダ生成 '================================================= ' 変数を宣言 Dim str_path ' ファイルストリーム・オブジェクト生成 Set objFS = CreateObject("Scripting.FileSystemObject") ' フォルダを生成する str_path = objFS.CreateFolder(nowstring()) '------------------------------------------------- '日時をyyMMdd形式にする '------------------------------------------------- Function nowstring() Dim nows nows = Right("0000" & Year(Now()) , 2 ) & Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2) nowstring = nows End Function '------------------------------------------------- |