日付のフォルダを作るVBscript2
2021年05月21日
だいぶ前に日付のフォルダを作るVBScriptを作った。
https://aki.p-kin.net/Entry/24/
業務ではちょいちょい使っていて、思うことがある。
フォルダ作ったんなら開いてよ！！
てなわけで、改良してみた。
参考になったのがこのサイト
'https://rakugakiman.com/archives/2258
フォルダを開く処理って１行で表現できるのね。
使いやすさを考えて、１行表現ではなくモジュールに飛ばすことにした。
以下、ソース。
https://aki.p-kin.net/Entry/24/
業務ではちょいちょい使っていて、思うことがある。
フォルダ作ったんなら開いてよ！！
てなわけで、改良してみた。
参考になったのがこのサイト
'https://rakugakiman.com/archives/2258
フォルダを開く処理って１行で表現できるのね。
使いやすさを考えて、１行表現ではなくモジュールに飛ばすことにした。
以下、ソース。
追加部分はOpenTheFolderモジュール
'main
call MakeDateDir
'-----------------------------------------------------------
sub MakeDateDir()
'文字列を取得
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
call OpenTheFolder(DirName)
end Sub
'フォルダを開く 'https://rakugakiman.com/archives/2258
sub OpenTheFolder( DirPath )
CreateObject("Shell.Application").ShellExecute DirPath
end sub
'main
call MakeDateDir
'-----------------------------------------------------------
sub MakeDateDir()
'文字列を取得
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
call OpenTheFolder(DirName)
end Sub
'フォルダを開く 'https://rakugakiman.com/archives/2258
sub OpenTheFolder( DirPath )
CreateObject("Shell.Application").ShellExecute DirPath
end sub
PR
Comment