THCS Quang Trung_Điện Bàn_Quảng Nam

Chào mừng các bạn đến với diễn đàn của Trường THCS Quang Trung_Điện Bàn
 
IndexCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
congtuan_luckyboy1996
Chuyên gia Spamer
Chuyên gia Spamer


Nam
Tổng số bài gửi : 111
Age : 20
Đến từ : 7/3, THCS Quang Trung, Vĩnh Điện, Điện Bàn, Quãng Nam, Việt Nam, Châu Á, Trái Đất, Ngân Hà hok bit
Registration date : 29/12/2008

Bài gửiTiêu đề: Tạo chức năng tìm kiếm bằng Vbscript   Sat Jan 10, 2009 8:17 pm

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 .
Cool Cool Cool Cool Cool
Về Đầu Trang Go down
Xem lý lịch thành viên http://hacker.yourme.net/
 
Tạo chức năng tìm kiếm bằng Vbscript
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
THCS Quang Trung_Điện Bàn_Quảng Nam :: Học Tập :: Tin học trẻ-
Chuyển đến