Tạo chức năng tìm kiếm bằng Vbscript

Thật là “điên đầu” khi bạn lục tung cả kho tàng tài liệu Microsoft Word trên hệ điều hành của bạn .

Làm thế nào ta có thể tìm tập tin .doc , .exe , .bat , … dể dàng mà không phụ thuộc chức năng tìm kiếm của Windows XP . Đầu tiên mở notepad chép đoạn mã này vào:

Dim objFSO

Dim ofolder

Dim objStream

Set objFSO = CreateObject("scripting.filesystemobject")

' Tao mot tap tin .log co ten la Search de xuat ra

Set objStream = objFSO.createtextfile("e:\search.log", True)

CheckFolder (objFSO.getfolder("e:\")), objStream

MsgBox "Qua trinh kiem tra da xong !!!" + vbCr + "Ban kiem tra tap tin E:\Search.log de xem ket

qua tim kiem" _

+ vbCr + "Please contact with me :”_

+ vbCr + "www.ktxonline.net ; "

Sub CheckFolder(objCurrentFolder, objLogFile)

Dim strTemp

Dim strSearch

Dim strOutput

Dim objNewFolder

Dim objFile

Dim objStream

strSearch = ".doc"

For Each objFile In objCurrentFolder.Files

strTemp = Right(objFile.Name, 4)

If UCase(strTemp) = UCase(strSearch) Then

'Got one

strOutput = CStr(objFile.Name) + "," + CStr(objFile.Path) + "," + CStr(objFile.Size) +

"," _

+ CStr(objFile.Type) + "," + CStr(objFile.datelastaccessed)

objLogFile.writeline strOutput

End If

Next

For Each objNewFolder In objCurrentFolder.subFolders

CheckFolder objNewFolder, objLogFile

Next

End Sub

Bạn lưu tập tin này lại là timkiem.vbs

Lưu Ý :

Ở dòng CheckFolder (objFSO.getfolder("e:\")), objStream bạn có thể thay đổi thành c:\ để tìm

kiếm ổ đĩa C :

Ởdòng strSearch = ".doc" bạn có thể thay đổi bằng strSearch = ".exe" để tìm các tập tin .exe

Công việc tiếp theo bạn chạy tập tin timkiem.vbs , sau đó nó sẽ xuất hiện bãng thông báo (như

hình dưới) đến đây bạn chỉ việc mở vào E:\search.log để xem các tập tin này .