＜％@language = vbscript％＞
＜％オプション明示的な％＞
＜％
「次のプログラムバッチは、フォルダー内のファイル名を変更し、すべてのファイルを新しいフォルダーに移動します。
Response.write "＜HTML＞"＆vbcrlf＆ "＜ヘッド＞"＆vbcrlf
response.write "＜タイトル＞バッチファイル名の変更</title＞"＆vbcrlf
respons.write "＜/head>"＆vbcrlf＆ "＜body>"＆vbcrlf
'変数説明
薄暗いgbolgoprocedure
dim strfromdir'sourceフォルダー
Dim StrtargetDir'targetフォルダー
Dim objfs
Dim Objrootfolder
dim objfile
薄暗いstrfilenamelen
dim strprevfilename
dim strfileext 'ファイル拡張子
Dim StrfileNamecount
薄暗いstrnewfilename
Dim StrrealCount '処理されたファイルの数
gbolgoprocedure = false
'開始ボタンがクリックされた場合、次の処理を実行します
if（request.form（ "gobutton"））= "start" then
'ソースフォルダーと宛先フォルダーを指定します
strfromdir = "d：test/"
strtargetdir = "d：/test1/"
'処理ファイルの数を0に設定します
strrealcount = 0
objfs = server.createObject（ "scripting.filesystemobject"）を設定します
objrootfolder = objfs.getfolder（strtargetdir）をセット
'ファイル名の特定の設定は、ここで100001に設定されており、ファイル名が100001からであることを示しています
'開始、徐々に増加し、必要に応じて設定できます。
strfilenamecount = 100001
objrootfolder.filesの各objfileについて
「特定のファイルについては、処理されておらず、必要に応じて設定できます。
objfile.name = "thumbs.db"の場合、strfilenamecount = strfilenamecount -1
strfilenamecount = strfilenamecount + 1
次
objrootfolder = objfs.getfolder（strfromdir）をセット
objrootfolder.filesの各objfileについて
strfilenamelen = len（objfile.name）
mid（objfile.name、（strfilenamelen -3）、1）= "。"それから
strfileext = right（objfile.name、4）
それ以外
strfileext = right（objfile.name、5）
ifを終了します
strprevfilename = objfile.name
strnewfilename = strfilenamecount＆strfileext
objfile.move strtargetdir＆strnewfilename
Response.write "ソースファイル："＆strfromdir＆strprevfilename＆ "は："＆strtargetdir＆strnewfilename＆ "＜br>"＆vbcrlfに移動して変更します。
strfilenamecount = strfilenamecount + 1
strrealcount = strrealcount + 1
次
Response.Write "＜P＞＜B ＞TOTAL Processing："＆（strrealCount）＆ "files </b>"＆vbcrlf
objrootfolder = Nothingを設定します
objfs = Nothingを設定します
gbolgoprocedure = true
ifを終了します
gbolgoprocedureの場合
Response.write（ "＜p＞＜b＞バッチファイルバッチの移動と名前変更</b＞"）＆vbcrlf
それ以外
Response.Write（ "＜センター＞＜br> form method =" "post" "action =" "filenameconverter.asp" "id = form1 name =" "form1" "" ">"）＆vbcrlf
Response.write（ "＜入力タイプ=" "" value = "" start "" id = "" gobutton "" name = "" gobutton "" ""> "）＆vbcrlf
respons.write（ "＜/form>"）＆vbcrlf
Response.Write（ "＜P＞＜B buttonボタンをクリックしてバッチ移動してファイルの名前を変更します</b ＞＜/center＞"）＆vbcrlf
ifを終了します