Khi xảy ra lỗi Tiếp tục tiếp theo 'Bỏ qua tất cả các lỗi
Dim filename 'Khai báo biến
Làm mờ lại
Đặt re=New RegExp 'Tạo một thể hiện đối tượng biểu thức chính quy
re.Pattern="^([az]|[AZ])+\:\\\w+\.vbs$"
Nếu re.Test(WScript.ScriptFullName)=False thì
MsgBox "Xin hãy chạy chương trình này trong thư mục gốc của đĩa, nếu không kết quả tìm kiếm có thể không chính xác!",,"MessageBox"
WScript.Thoát
Kết thúc nếu
re.Pattern="^([A-Za-z0-9_]|[^\x00-\xff])+\.[a-zA-Z]{1,4}$" 'Khai báo chế độ khớp biểu thức chính quy, chủ yếu được sử dụng để kiểm tra xem tên tệp được người dùng nhập có đúng hay không.
LÀM
filename=InputBox("Xin vui lòng nhập tên file bạn muốn tìm kiếm:", "MessageBox")
Nếu filename="" Thì WScript.Quit 'Thoát tập lệnh nếu đầu vào trống
Nếu re.Test(tên tệp)=False thì
MsgBox "Vui lòng nhập tên tệp hợp pháp!",,"MessageBox"
Kết thúc nếu
Vòng lặp while re.Test(filename)=False 'Không thoát ra khỏi vòng lặp cho đến khi người dùng nhập đúng tên tệp.
Đặt re=Không có gì
mờ tức là
Đặt ie=WScript.CreateObject("internetexplorer.application") 'Tạo một đối tượng IE để hiển thị trạng thái tìm kiếm
ie.menubar=0 'Không hiển thị thanh menu đối tượng IE
ie.AddressBar=0 'Không hiển thị thanh địa chỉ đối tượng IE
ie.ToolBar=0 'Không hiển thị thanh công cụ đối tượng IE
ie.StatusBar=0 'Không hiển thị thanh trạng thái đối tượng IE
ie.FullScreen=1 'Đối tượng IE toàn màn hình
ie.Width=640 'Đặt chiều rộng đối tượng IE
ie.Height=120 'Đặt chiều cao của đối tượng IE
ie.Resizable=0 'Đặt xem có thể thay đổi kích thước đối tượng IE hay không
ie.Navigate "about:blank" 'Đặt trang mà đối tượng IE trỏ đến theo mặc định
ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2) 'Đặt lề trái của đối tượng IE
ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2) 'Đặt lề phải của đối tượng IE
ie.visible=1 'Đặt xem đối tượng IE có hiển thị hay không
Với ie.Document 'Sau đây là một trang được viết bằng đối tượng IE, không khác gì HTML thông thường
.viết ""
.viết "<đầu>"
.write ""
.viết ""
.viết ""
.viết ""
.viết ""
.viết ""
.viết "Xem sitemap của VNExpress "
.viết ""
Kết thúc bằng
'Xác định các biến đối tượng của hệ thống tập tin
mờ fso
Làm mờ objfolder
Làm mờ objsubfolders
Làm mờ objsubfolder
Làm mờ các objfile
Làm mờ objfile
Làm mờ objdrive
Làm mờ objdrive
Làm mờ objtextfile
Độ mờ của str:str=""
Dim i:i=0 'Biến đếm
Kết quả mờ
result="E:\search results.html" 'Biến tệp lưu kết quả tìm kiếm
'Một quá trình được sử dụng để duyệt qua các tập tin đĩa cứng
Chức năng tìm kiếm(đường dẫn)
Đặt objfolder=fso.getfolder(path) 'Lấy đường dẫn hiện tại
Đặt objfiles=objfolder.Files 'Lấy tập hợp tất cả các file theo đường dẫn hiện tại
Đối với mỗi objfile Trong objfiles 'Bắt ​​đầu duyệt qua bộ sưu tập tệp
ie.Document.getElementById("middle").innerHTML=objfile.Path 'Sử dụng mô hình đối tượng tài liệu của đối tượng IE, ghi đường dẫn tệp hiện đang tìm kiếm vào DIV với ID ở giữa
Nếu objfile.Name=filename Thì 'Nếu tên tệp hiện tại nhất quán với tên tệp được người dùng nhập
i=i+1 'Bộ đếm cộng một
str=str & objfile. Đường dẫn & "
"
Set objtextfile=fso.OpenTextFile(result,2,True) 'Tạo một đối tượng luồng văn bản, tên file là chuỗi được lưu trong biến result
objtextfile.Write(str) 'Viết đường dẫn file trong biến str vào file html
objtextfile.Close 'Đóng đối tượng luồng văn bản
Đặt objtextfile=Không có gì 'Hủy đối tượng
Kết thúc nếu
Nếu i>0 thì
tức là.Document.getElementById("header").innerHTML="Đã tìm thấy " & i & " trùng khớp, chi tiết được lưu trong tệp """ & kết quả & """..."
Khác
ie.Document.getElementById("header").innerHTML="Đang thực hiện tìm kiếm tập tin..."
Kết thúc nếu
WScript.Ngủ(20)
Kế tiếp
Đặt objsubfolders=objfolder.SubFolders 'Lấy bộ sưu tập của tất cả các thư mục theo đường dẫn hiện tại
Đối với mỗi thư mục con Trong thư mục objsubfolders 'Thư mục truyền tải
nowpath=path & "\" & objsubfolder.Name 'Lấy đường dẫn tệp mới
search nowpath 'Gọi chính hàm đó và bắt đầu tìm kiếm từ đường dẫn mới
Kế tiếp
Chức năng kết thúc
Đặt fso=CreateObject("scripting.filesystemobject")
Đặt objdrives=fso.Drives 'Lấy tất cả ổ đĩa của máy tính hiện tại
Đối với mỗi objdrive Trong objdrives 'Truyền tải đĩa
search objdrive 'Chức năng gọi
Kế tiếp
'Thông tin hiển thị ở cuối
tức là.Document.getElementById("header").innerHTML="Quét đã kết thúc..."
Nếu i>0 thì
ie.Document.getElementById("middle").innerHTML="Vui lòng mở """ & result & """ để xem kết quả tìm kiếm chi tiết!"
Khác
ie.Document.getElementById("middle").innerHTML="Không tìm thấy tệp bạn đang tìm kiếm!"
Kết thúc nếu
'Hủy biến đối tượng và giải phóng không gian bộ nhớ
Đặt objdrives=Không có gì
Đặt objfiles=Không có gì
Đặt objfile=Không có gì
Đặt objdrive=Không có gì
Đặt objfolders=Không có gì
Đặt objfolder=Không có gì
Đặt objsubfolders=Không có gì
Đặt objsubfolder=Không có gì
Đặt fso=Không có gì