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 .
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 .
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 .
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 .