Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức Chuyên cung cấp, phân phối và trao đổi laptop giá rẻ nhất trên thị trường như: Laptop Lenovo, Dell latitude, HP Elitebook, ibm thinkpad, Fujitsu, Nec, Toshiba, Panasonic, Compaq, Gateway, Sony vaio, Macbook Apple, Acer, Asus…
Với đội ngũ nhân viên bán hàng – Chuyên viên kỹ thuật máy tính có tay nghề, đã nhiều năm kinh nghiệm trong ngành mua bán – trao đổi laptop. Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức, chúng tôi tin rằng sẽ mang lại cho quý khách hàng những sản phẩm tốt nhất, giá cả hợp lý nhất, chính sách và dịch vụ tốt nhất để quý khách hàng yên tâm sử dụng. Quý khách có nhu cầu mua Laptop Tại Thủ Đức xin liên hệ 0932.425.379
Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức. Hotline tư vấn 0932.425.379
Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức có các chính sách và dịch vụ sau:
Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức Uy tín – Chuyên nghiệp – Chất lượng
Thời gian làm việc của đội ngũ nhân viên tại cưa hàng Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức
Chúng tôi phục vụ từ: thứ 2 – CN, từ 7h sáng – 22h.
Số hotline tư vấn luôn phục vụ: 24/24.
Quý khách vui lòng gọi để được phục vụ. 0932.425.379 hoặc 0964.855.329
Địa chỉ của cửa hàng Laptop Giá Rẻ 247
Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức mách bạn thủ thuật máy tính về “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) +
“,” _
Next
+ CStr(objFile.Type) + “,” + CStr(objFile.datelastaccessed) objLogFile.writeline strOutput
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 .
Laptop Giá Rẻ Tại Đường Xa Lộ Hà Nội Thủ Đức phục vụ quý khách hàng tại các đường như:
