日付のフォルダを作るVBscript
2020年04月27日
なんかの作業をする場合、日付のフォルダを作ることが多い。
日付だけの場合もあれば、アンダーバーで区切って内容を入れることも。
前回、日付のファイルを作ったので、同様にやってみた。
まずは、日付のフォルダを作るところをググる。
https://dev.w.ezic.info/1926.html
こんなもんか。
例によって、InputBoxを使って文字を取得して、
その内容によって分岐。
テキストファイルは上書きでOKだけど、
フォルダはそうもいかないので存在チェック。
https://multiplechoice.hatenablog.com/entry/2017/12/10/195302
ファイルとフォルダ違うけど、fileをFolderに修正して動いた。
処理の流れは、こんな感じ。
まず、文字を入力。
なしなら日付のフォルダ、あれば日付_入力した文字のフォルダ。
個人的な都合で、「)」で始まる文字を入れた場合は、
日付を（）で挟むフォルダ。
以下、ソース。
日付だけの場合もあれば、アンダーバーで区切って内容を入れることも。
前回、日付のファイルを作ったので、同様にやってみた。
まずは、日付のフォルダを作るところをググる。
https://dev.w.ezic.info/1926.html
こんなもんか。
例によって、InputBoxを使って文字を取得して、
その内容によって分岐。
テキストファイルは上書きでOKだけど、
フォルダはそうもいかないので存在チェック。
https://multiplechoice.hatenablog.com/entry/2017/12/10/195302
ファイルとフォルダ違うけど、fileをFolderに修正して動いた。
処理の流れは、こんな感じ。
まず、文字を入力。
なしなら日付のフォルダ、あれば日付_入力した文字のフォルダ。
個人的な都合で、「)」で始まる文字を入れた場合は、
日付を（）で挟むフォルダ。
以下、ソース。
'文字列を取得
dim iText
iText = inputbox("作成するフォルダの内容は？")
'フォルダ名
dim date,DirName
date=Replace(now, "/", "")
date=left(date , 8)
if iText ="" then
DirName =date
elseif left(iText,1)=")" then
DirName = "(" & date & ")_" & mid(iText ,2,len(iText)-1)
else
DirName = date & "_" & iText
end if
' ファイルストリーム・オブジェクト生成
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(DirName) Then
msgbox "すでにフォルダが存在します"
else
' フォルダを生成する
str_path = objFS.CreateFolder(DirName)
end if
PR
Comment