< % @Language = VBScript %>
<%ตัวเลือกที่ชัดเจน%>
%
'ชุดโปรแกรมต่อไปนี้เปลี่ยนชื่อไฟล์ในโฟลเดอร์และย้ายไฟล์ทั้งหมดไปยังโฟลเดอร์ใหม่
response.write "<html>" & vbcrlf & "<head>" & vbcrlf
Response.write "<ชื่อ> ชื่อไฟล์แบตช์เปลี่ยน </title>" & vbcrlf
Response.write "</head>" & vbcrlf & "body>" & vbcrlf
'คำอธิบายตัวแปร
Dim Gbolgoprocedure
โฟลเดอร์ Dim Strfromdir'Source
โฟลเดอร์ Dim StrtargetDir'target
dim objfs
Dim Objrootfolder
สลัว objfile
สลัว strfilenamelen
dim strprevfilename
ส่วนขยายไฟล์ของ Dim StrFileext
สลัว strfilenamecount
dim strnewfilename
Dim StrrealCount จำนวนไฟล์ที่ประมวลผล
gbolgoprocedure = false
'หากคลิกปุ่มเริ่มต้นให้ทำการประมวลผลต่อไปนี้
ถ้า (request.form ("gobutton")) = "เริ่ม" แล้ว
'ระบุโฟลเดอร์ต้นทางและโฟลเดอร์ปลายทาง
strfromdir = "d: test/"
strtargetDir = "d:/test1/"
'ตั้งจำนวนไฟล์ประมวลผลเป็น 0
StrrealCount = 0
ตั้งค่า objfs = server.createObject ("scripting.filesystemobject")
ตั้งค่า objrootfolder = objfs.getFolder (strtargetDir)
'การตั้งค่าเฉพาะของชื่อไฟล์ตั้งค่าเป็น 10,0001 ที่นี่แสดงว่าชื่อไฟล์จะมาจาก 10,0001
'เริ่มต้นเพิ่มขึ้นทีละน้อยสามารถตั้งค่าได้ตามต้องการ
strfilenamecount = 100001
สำหรับแต่ละ objfile ใน objrootfolder.files
'สำหรับไฟล์เฉพาะพวกเขาจะไม่ถูกประมวลผลและสามารถตั้งค่าได้ตามต้องการ
ถ้า objfile.name = "thumbs.db" แล้ว strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
ต่อไป
ตั้งค่า objrootfolder = objfs.getfolder (strfromdir)
สำหรับแต่ละ objfile ใน objrootfolder.files
strfilenamelen = len (objfile.name)
ถ้า mid (objfile.name, (strfilenamelen - 3), 1) = "." แล้ว
strfileext = ขวา (objfile.name, 4)
อื่น
strfileext = ขวา (objfile.name, 5)
สิ้นสุดถ้า
strprevfilename = objfile.name
strNewFileName = strfilenamecount & strfileext
objfile.Move strtargetdir & strnewfilename
response.write "ไฟล์ต้นฉบับ:" & strfromdir & strprevfilename & "> ย้ายและเปลี่ยนเป็น:" & strtargetdir & strnewfilename & "<br>" & vbcrlf
strfilenamecount = strfilenamecount + 1
strrealCount = strealCount + 1
ต่อไป
Response.write "<P >< B> การประมวลผลทั้งหมด:" & (strrealCount) & "ไฟล์ </b>" & vbcrlf
ตั้งค่า objrootfolder = ไม่มีอะไร
ตั้งค่า objfs = ไม่มีอะไร
gbolgoprocedure = true
สิ้นสุดถ้า
ถ้า gbolgoprocedure แล้ว
Response.write ("<p >< b> แบตช์ไฟล์การย้ายและเปลี่ยนชื่อ </b>") & vbcrlf
อื่น
Response.write ("<center ><br> <วิธีการแบบฟอร์ม =" "โพสต์" "แอ็คชั่น =" "filenameconverter.asp" "id = form1 name =" "form1" ""> ") & vbcrlf
Response.write ("<อินพุตประเภท =" "ส่ง" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
Response.write ("</form>") & vbcrlf
Response.write ("<p >< b> คลิกปุ่มเพื่อย้ายแบทช์และเปลี่ยนชื่อไฟล์ </b ></center>") & vbcrlf
สิ้นสุดถ้า