＜ % @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