Bagaimana cara menggunakan FSO untuk mencari file hard disk? Tahukah Anda cara mencari file hard disk untuk FSO? Jika Anda belum memahaminya, ikuti editor Foxin dan saya akan memahaminya.
<%@Language = "vbscript" codepage = "936"%>
<%
redup st
st = timer ()
'****************************************************************
'*************** Cari Kelas File Hard Disk Cari SearchFile ************
'************ Metode panggilan: ************
'************ Set NewsSearch = new SearchFile' Deklarasi ************
'************ Newsearch.folder = "f:+e:"' Lulus di sumber pencarian ****************
'************ Newsearch.keyword = "Compilation"' Kata kunci *********
'************ Newsearch.search' Mulai pencarian ************
'************ Set NewsSearch = Nothing' End *************
'****************************************************************
Class SearchFile
folder redup 'melewati jalur absolut, multipath menggunakan + tanda untuk terhubung, tidak ada spasi
kata kunci kata kunci 'lewat'
redup objfso 'mendefinisikan variabel global
redup counter 'mendefinisikan variabel global, jumlah hasil pencarian
'***************** Inisialisasi **********************************
Private Sub Class_initialize
Set ObjFSO = Server.CreateObject ("Scripting.FilesystemObject")
Penghitung = 0 'inisialisasi penghitung
Akhir sub
'*********************************************************************
Sub Class_Terminate pribadi
Atur objfso = tidak ada
Akhir sub
'****************** Anggota Publik, Metode Disebut *******************************
Pencarian fungsi
Folder = split (folder, "+") 'Convert to Array
kata kunci = trim (kata kunci) 'lepaskan spasi sebelum dan sesudah
Jika kata kunci = "" lalu
Response.write ("<font color = 'red'> kata kunci tidak bisa kosong </font> <br/>")
fungsi keluar
akhiri jika
'Cukup tentukan apakah karakter ilegal disertakan
flag = instr (kata kunci, "") atau instr (kata kunci, "/")
flag = flag atau instr (kata kunci, ":")
bendera = bendera atau instr (kata kunci, "|")
flag = bendera atau instr (kata kunci, "&")
Jika bendera maka kata kunci tidak dapat berisi /: | & &
Response.write ("<font color = 'red'> kata kunci tidak dapat berisi/: | & </font> <br/>")
Fungsi keluar 'jika ini disertakan, keluar
akhiri jika
'Pencarian Multi-Path
redup i
untuk i = 0 ke ubund (folder)
Hubungi getAllFile (folder (i)) 'Call Loop Recursive Function
Berikutnya
Response.write ("Total <font color = 'red'>" & counter & "</font> hasilnya ditemukan)
Fungsi akhir
'**************************************
Fungsi pribadi getAllFile (folder)
redup objfd, objfs, objff
Atur objfd = objfso.getFolder (folder)
Atur objfs = objfd.subfolder
Atur objff = objfd.files
'Perjalanan melalui subfolder
redup strfdname 'mendeklarasikan nama subfolder
'************ Kunjungi subfolder *******
pada kesalahan resume berikutnya
Untuk setiap onedir di objfs
strfdname = onedir.name
'Folder sistem tidak termasuk dalam traversal
Jika strfdname <> "config.msi" eqv strfdname <> "daur ulang" eqv strfdname <> "decycler" eqv strfdname <> "informasi volume sistem" lalu
SFN = Folder & "" & strfdname 'Jalur absolut
Hubungi getAllfile (SFN) 'Call Recursion
Akhiri jika
Berikutnya
redup strflname
'************ Vide ke file **********
Untuk setiap orang yang berada di objff
strflname = OneFile.name
'desktop.ini dan folder.htt tidak ada di kisaran kolom
Jika strflname <> "desktop.ini" eqv strflname <> "folder.htt" lalu
Fn = folder & "" & strflname
Penghitung = penghitung+coloron (fn)
Akhiri jika
Berikutnya
'******************************
'Tutup setiap contoh objek
Atur objfd = tidak ada
Atur OBJFS = tidak ada
Atur objff = tidak ada
Fungsi akhir
'*************************** menghasilkan pola pencocokan ****************************************
CreatePattern fungsi pribadi (kata kunci)
CreatePattern = kata kunci
CreatePattern = ganti (createPattern, ".", ".")
CreatePattern = ganti (createPattern, "+", "+")
CreatePattern = ganti (createPattern, "(", "(")
CreatePattern = ganti (createPattern, ")", ")")
CreatePattern = ganti (createPattern, "[", "[")
CreatePattern = ganti (createPattern, "]", "]")
CreatePattern = ganti (createPattern, "{", "{")
CreatePattern = ganti (createPattern, "}", "}")
CreatePattern = ganti (createPattern, "*", "[^//]*") '*Nomor cocok
CreatePattern = ganti (createPattern, "?", "[^//] {1}") '? Pencocokan nomor
CreatePattern = "(" & createPattern & ")+" 'kecocokan keseluruhan
Fungsi akhir
'****************************** pencarian dan kata kunci warna ****************************
Fungsi Pribadi Coloron (nama file)
redup objreg
Set Objreg = RegExp baru
objreg.pattern = createPattern (kata kunci)
objreg.ignorecase = true
objreg.global = true
retval = objreg.test (fileName) 'Periksa tes pencarian, jika lewat, warna dan output
Jika retval maka
Output = objreg.replace (nama file, "<font color = '#ff0000'> $ 1 </font>") 'Atur warna tampilan kata kunci
'****************************** Bagian ini dapat memodifikasi output sesuai kebutuhan **************************************************
Output = "<a href = '#'>" & output & "</a> <br/>"
Response.write (output) 'hasil pencocokan output
'*********************************************************************
Coloron = 1 'jumlah penghitung tambahan
kalau tidak
Coloron = 0
akhiri jika
Setel objreg = tidak ada
Fungsi akhir
Kelas akhir
'**************************** Kelas Akhir Pencarian Kelas *************************
%>
<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<title> www.csdn.com.cn </title>
</head>
<body>
<Form name = "Form1" Method = "Post" Action = "<% = request.serverVariable (" path_info ")%>">
Kata kunci:
<input name = "kata kunci" type = "text" id = "kata kunci">
<input type = "kirim" name = "kirim" value = "Search">
<a href = "help.htm" target = "_ blank"> Bantuan pencarian lanjutan </a>
</form>
<%
kata kunci redup
kata kunci = request.form ("kata kunci")
Jika kata kunci <> "" lalu
Set NewsSearch = pencarian baru
Newsearch.Folders = "E: Media+F:"
Newsearch.keyword = Kata kunci
NewsSearch.Search
Setel Newsearch = tidak ada
response.write ("<br/> memakan waktu:" & (timer ()-st)*1000 & "ms")
akhiri jika
%>
</body>
</html>
Jika Anda berpikir metode FSO ini untuk mencari file hard disk bermanfaat bagi Anda, tolong beri saya jempol ke atas. Jika Anda ingin melihat lebih banyak konten terkait, silakan ikuti saluran teknologi Wonew. Terima kasih atas dukungan Anda!