Bagi desainer website, tidak dapat dihindari untuk memproses file dalam jumlah besar dari waktu ke waktu, terutama gambar dan beberapa file teks, yang sering diproses. Karena banyaknya file di website, file dengan tipe yang sama sering diberi nama menggunakan angka yang bertambah dengan aturan tertentu. Misalnya, file gambar umum kita sering diberi nama 1001.jpg, 1002. Kelebihan metode jpg adalah. nama file tidak akan terulang dan mudah dikelola. Di sini, kami secara khusus memperkenalkan metode sederhana dan mudah untuk mengganti nama semua file di folder mana pun secara batch. Tentu saja, nama file setelah penggantian nama akan bertambah secara numerik sesuai dengan kebutuhan perancang situs web.
Kami menggunakan ASP untuk mengimplementasikan fungsi-fungsi di atas. Perlu dicatat bahwa karena desain melibatkan operasi file dan menggunakan objek FileSystemObject, implementasi fungsi ini harus dilakukan di situs web dengan izin operasi file. Perhatian virtual umum: mengingat persyaratan keamanan, izin keberadaan file mungkin tidak diberikan. Ini adalah hal pertama yang perlu kita perhatikan; selain itu, dalam program berikut, kami akan mengoperasikan semua file di folder strFromDir yang ditentukan, selama Ini adalah file ini Terlepas dari jenis file, program akan mengganti nama file di folder tersebut. Tentu saja, jenis file tidak akan diubah. File yang diubah namanya tidak lagi disimpan di folder aslinya, tetapi akan dipindahkan ke a folder baru. strTargetDir, harap dicatat bahwa kami pindah ke sini, bukan menyalin, jadi setelah operasi, semua file di folder asli tidak akan ada lagi, program ini memanfaatkan berbagai properti dan fitur yang disediakan oleh objek FileSystemObject, dan sekarang mudah diimplementasikan. Pastinya sobat yang memprogram dalam bahasa lain mungkin sudah merasakannya sekarang, mari kita lihat kode implementasi fungsinya:
＜% @LANGUAGE = VBSCRIPT %＞
＜%Opsi Eksplisit%＞
<%
'Program berikut mengganti nama file dalam folder secara batch dan memindahkan semua file ke folder baru;
Respon.Tulis "＜html＞" & VbCrLf & "＜head＞" & VbCrLf
Response.Tulis "＜judul＞Ganti nama file batch＜/judul＞" & VbCrLf
Respon.Tulis "＜/head＞" & VbCrLf & "＜body＞" & VbCrLf
'Deskripsi variabel
Redupkan gbolGoProcedure
Redupkan folder sumber strFromDir '
Redupkan strTargetDir 'Folder target
Redupkan objek
Redupkan objRootFolder
Redupkan file objek
Redupkan strFileNameLen
Redupkan strPrevFileName
Redupkan strFileExt 'Ekstensi file
Redupkan strFileNameCount
Redupkan strNewFileName
Redupkan strRealCount 'Jumlah file yang diproses
gbolGoProcedure = False
'Jika tombol start diklik, lakukan pemrosesan berikut
If (Request.Form("GoButton")) = "Mulai" lalu
'Tentukan folder sumber dan folder target
strFromDir = "D:test"
strTargetDir = "D:test1"
' Atur jumlah file yang akan diproses menjadi 0
strRealCount = 0
Setel objFS = Server.CreateObject("Scripting.FileSystemObject")
Setel objRootFolder = objFS.GetFolder(strTargetDir)
'Pengaturan spesifik nama file, disetel di sini ke 100001, menunjukkan bahwa nama file akan diubah dari 100001
'Mulai, tingkatkan secara bertahap, dan dapat diatur sesuai kebutuhan;
strFileNameCount = 100001
Untuk setiap objFile di objRootFolder.Files
'Untuk file tertentu, tidak ada pemrosesan yang akan dilakukan dan dapat diatur sesuai kebutuhan;
Jika objFile.Name = "Thumbs.db" maka strFileNameCount = StrFileNameCount - 1
strFileNameCount = strFileNameCount + 1
Selanjutnya
Setel objRootFolder = objFS.GetFolder(strFromDir)
Untuk setiap objFile di objRootFolder.Files
strFileNameLen = Len (objFile.Nama)
Jika Pertengahan (objFile.Name,(strFileNameLen - 3),1) = "." maka
strFileExt = kanan(objFile.Nama, 4)
Kalau tidak
strFileExt = kanan(objFile.Nama, 5)
Berakhir Jika
strPrevFileName = objFile.Name
strNewFileName = strFileNameCount & strFileExt
objFile.Move strTargetDir & strNewFileName
Response.Tulis "File sumber: " &strFromDir&strPrevFileName & " > Pindahkan dan ganti nama: " &strTargetDir& strNewFileName & "＜br＞" & vbCrLF
strFileNameCount = strFileNameCount + 1
strRealCount = strRealCount + 1
Berikutnya.
Tulis "＜p＞＜b＞ Total yang diproses: " & (strRealCount) & " files＜/B＞" & vbCrLf
Set objRootFolder = Tidak Ada
Setel objFS = Tidak Ada
gbolGoProcedure = Benar Berakhir
Jika
Jika gbolGoProcedure Lalu
Response.Write("＜p＞＜b＞Pemindahan file batch dan ganti nama＜/b＞") & vbCrLf
Else
Response.Write("＜center＞＜br＞＜form method=""post"" action=""FileNameConverter.asp"" ID=form1 name=""form1""＞") & vbCrLf
Response.Write("＜input type=""KIRIM"" value="" Mulai"" ID=""GoButton"" name=""GoButton""＞") & vbCrLf
Respon.Write("＜/form＞") & vbCrLf
Response.Write("＜p＞＜b＞Klik tombol untuk memindahkan batch dan mengganti nama file＜/b＞＜/center＞") & VbCrLf
Akhiri Jika
Respon.Tulis "＜/body＞" & VbCrLf & "＜/html＞"
%＞