Cộng Đồng TeenXuanSon Online

Wellcome To Xuân Sơn - Châu Đức - BRVT

Cộng Đồng TeenXuanSon Online


 
Trang ChínhTXSGalleryTrợ giúpTìm kiếmThành viênNhómBài Trong NgàyĐăng kýĐăng Nhập

Share | 
 

 Tạo chức năng tìm kiếm bằng Vbscript (Cái này alt khoái đây)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
lubita
Spammer
Spammer
avatar

Tổng số bài gửi : 163
Điểm : 34086
Danh tiếng : 124
Ngày vào diễn đàn : 15/06/2011
Tuổi của tôi là : 23
Đến từ : C:\WINDOWS\system\Chém Gió.exe

Bài gửiTiêu đề: Tạo chức năng tìm kiếm bằng Vbscript (Cái này alt khoái đây)   14/9/2011, 10:51 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 .

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 + "[You must be registered and logged in to see this link.] ; "

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 .
Về Đầu Trang Go down
Xem lý lịch thành viên
 

Tạo chức năng tìm kiếm bằng Vbscript (Cái này alt khoái đây)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

 Similar topics

-
» Tin chính sách, chủ trương của Nhà nước
» HI! CHÀO TẤT CẢ CÁC BẠN THÂN THUƠNG KHOÁ 84-87
» Đổ 100.000 tỉ vào Vinalines
» "Đọc hiệu soi giá" BST áo khoác hoành tráng trong The Heirs
» [Shop] Móc khóa, móc điện thoại CHIBI THẦN TƯỢNG bằng vải nỉ

Permissions in this forum:Bạn không có quyền trả lời bài viết
Cộng Đồng TeenXuanSon Online :: ––––•(-• ((¯`•¸•´¯)) (…INTERNET…) ((¯`•¸•´¯)) •-)•–––– :: COMPUTER-