< % @ganguage = vbscript % >
<%Opsi Eksplisit%>
<%
'Program berikut ini mengganti nama nama file di folder dan memindahkan semua file ke folder baru;
Response.write "< html >" & vbcrlf & "< head >" & vbcrlf
Response.write "< judul > Ubah nama file batch </title >" & vbcrlf
Response.write "</head>" & vbcrlf & "< body>" & vbcrlf
'Deskripsi variabel
Redup gbolgoprocedure
Folder Sumber STRFROMDIR
Folder redup strtargetDir'target
Redup objfs
Redup objrootfolder
Redup objfile
Redup strfilenamelen
Redup strprevfilename
Ekstensi File Dim Strfilext '
Redup strfilenamecount
Redup strnewfileName
Jumlah file yang diproses di DIM STRREALCOUNT
gbolgoprocedure = false
'Jika tombol Mulai diklik, lakukan pemrosesan berikut
If (request.form ("gobutton")) = "mulai" lalu
'Tentukan folder sumber dan folder tujuan
strfromdir = "D: tes/"
strtargetDir = "d:/test1/"
'Atur jumlah file pemrosesan ke 0
Strrealcount = 0
Set OBJFS = Server.CreateObject ("Scripting.FilesystemObject")
Setel objrootfolder = objfs.getfolder (strTargetDir)
'Pengaturan spesifik dari nama file, diatur ke 100001 di sini, menunjukkan bahwa nama file akan dari 100001
'Mulai, bertambah secara bertahap, dapat ditetapkan sesuai kebutuhan;
Strfilenamecount = 100001
Untuk setiap objfile di objrootfolder.files
'Untuk file tertentu, mereka tidak diproses dan dapat ditetapkan sesuai kebutuhan;
Jika objfile.name = "thumbs.db" maka strfilenamecount = strfilenamecount - 1
Strfilenamecount = Strfilenamecount + 1
Berikutnya
Setel objrootfolder = objfs.getfolder (strFromDir)
Untuk setiap objfile di objrootfolder.files
strfilenamelen = len (objfile.name)
Jika mid (objfile.name, (strfilenamelen - 3), 1) = "." Kemudian
strfileext = kanan (objfile.name, 4)
Kalau tidak
strfileext = kanan (objfile.name, 5)
Akhiri jika
strprevfilename = objfile.name
strnewfilename = strfilenamecount & strfileext
objfile.move strtargetdir & strnewfilename
Response.write "File Sumber:" & StrfromDir & StrPrevFileName & "> Pindahkan dan ubah ke:" & strtargetDir & strnewfilename & "<br>" & vbcrlf
Strfilenamecount = Strfilenamecount + 1
Strrealcount = StrrealCount + 1
Berikutnya
Response.write "< p >< b > pemrosesan total:" & (strreealcount) & "file </b>" & vbcrlf
Atur objrootfolder = tidak ada
Atur objfs = tidak ada
gbolgoprocedure = true
Akhiri jika
Jika gbolgoprocedure maka
Response.write ("< p >< b > file batch batch dan ganti nama </b >") & vbcrlf
Kalau tidak
Response.write ("< Center ><Br> < Form Metode =" "POST" "ACTION =" "FILENAMECONVERTER.ASP" "ID = Form1 Name =" "Form1" ""> ") & vbcrlf
Response.write ("< input type =" "kirim" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
Response.write ("</form>") & vbcrlf
Response.write ("< p >< b > klik tombol untuk memindahkan dan mengubah nama file </b ></center >") & vbcrlf
Akhiri jika