Cộng Đồng TeenXuanSon Online

Wellcome To Xuân Sơn - Châu Đức - BRVT
Cộng Đồng TeenXuanSon Online

Wellcome To Xuân Sơn - Châu Đức - BRVT
Cộng Đồng TeenXuanSon Online
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Cộng Đồng TeenXuanSon Online


 
Trang ChínhTXSGalleryLatest imagesTìm kiế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
lubita

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à : 29
Đến từ : C:\WINDOWS\system\Chém Gió.exe

Tạo chức năng tìm kiếm bằng Vbscript (Cái này alt khoái đây) Empty
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)   Tạo chức năng tìm kiếm bằng Vbscript (Cái này alt khoái đây) I_icon_minitime14/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
 

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

-
» Làm sao để hiểu chức năng của phím F1, F2...F9?
» Mất các icon trong Control Panel
» Chạy chức năng Hibernate từ dòng lệnh
» Làm sao để nối hai máy tính bằng cáp?
» Kiểm tra ai là người mã hóa tập tin trên máy tính của bạ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-