フォルダの一括作成

漫画を自炊するようになって、『題名+連番』のフォルダを大量に作るのでバッチを作ってみた。

 ガバガバなスクリプトなので適当に使ってあげてね

テキストファイルにコピペして拡張子を【txt】から【vbs】に変更すれば使えます

-------------------------------------------------------------------------------------------------------------------

Option Explicit
Dim DifPath
Dim ForderName,SerNo
Dim objFso,x

DifPath = "D:\"
ForderName = InputBox("作成するフォルダ名")
SerNo = InputBox("作成する巻数")

Set objFso = CreateObject("Scripting.FileSystemObject")

if len(SerNo) < 4 Then

 for x = 1 to SerNo

  if len(SerNo) = 2 And len(x) = 1 Then
   x="0" & x
  end if

  if len(SerNo) = 3 And len(x) = 2 Then
   x="0" & x
  elseif len(SerNo) = 3 And len(x) = 1 Then
   x="00" & x
 end if

 objFso.CreateFolder DifPath & "\" & ForderName & x

Next

 msgbox "終了しました"
 else
 msgbox "1000巻以上は作成できません"
end if

-------------------------------------------------------------------------------------------------------------------