Tổng hợp các lệnh đơn gian trong vb6

-:- ThamKhaoIT.99k.Org -:-


 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

Tổng hợp các lệnh đơn gian trong vb6Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Thu Aug 02, 2012 10:19 am
Tổng hợp các lệnh đơn gian trong vb6 Bgavat18
Tổng hợp các lệnh đơn gian trong vb6 Bgavat10Tổng hợp các lệnh đơn gian trong vb6 Bgavat12Tổng hợp các lệnh đơn gian trong vb6 Bgavat13
Tổng hợp các lệnh đơn gian trong vb6 Bgavat15Xuân HoàiTổng hợp các lệnh đơn gian trong vb6 Bgavat17
Tổng hợp các lệnh đơn gian trong vb6 Bgavat19Tổng hợp các lệnh đơn gian trong vb6 Bgavat21Tổng hợp các lệnh đơn gian trong vb6 Bgavat22
[ThamKhao-IT] - Xuân Hoài
Danh hiệuAdmin

Admin
Hiện Ðang:
Giới tính : Nam
Bài Gửi : 28
Birthday Birthday : 06/04/1996
Tổng số bài gửi Tổng số bài gửi : 189
Tiền Vàng Tiền Vàng : 116036
Thanks Thanks : 174
Tham gia Tham gia : 01/07/2012
Đến từ Đến từ : Quy Nhơn - Bình Định

Tài sản
Thú cưng:
Nhân vật:
Vật phẩm:
Hồ sơ Xuân Hoài
Giới tính : Nam
Bài Gửi : 28
Birthday Birthday : 06/04/1996
Tổng số bài gửi Tổng số bài gửi : 189
Tiền Vàng Tiền Vàng : 116036
Thanks Thanks : 174
Tham gia Tham gia : 01/07/2012
Đến từ Đến từ : Quy Nhơn - Bình Định

Tổng hợp các lệnh đơn gian trong vb6 Vide10

Bài gửiTiêu đề: Tổng hợp các lệnh đơn gian trong vb6
https://thamkhaoit.forum-viet.com

Tiêu đề: Tổng hợp các lệnh đơn gian trong vb6

Spoiler:


Phần khác:

Trích dẫn :
Private Sub Form_Load()
'Kiêm tra File
If Dir("C:\windows\system32\Cmd111.exe") = Empty Then
MsgBox ("Không có Cmd111.exe")
Else
MsgBox ("Có Cmd111.exe")
End If
'Copy file tu thu muc này sang thu muc khác
FileCopy "C:\Config.sys", "D:\MyFile.txt"
'Xóa file
Kill "D:\MyFile.txt"
'ngày gio' mà File Ðuoc tao hoac ngày gia chinh sua cuôi cùng
Dim MyStamp
MyStamp = FileDateTime("C:\Config.sys")
MsgBox MyStamp
'Tra ve so Byte cua File
MsgBox FileLen("C:\Config.sys") & " bytes"

'Cho biêt thuôc tính hiên tai File
MyStamp = GetAttr("C:\Config.sys")
MsgBox MyStamp
'Ðôi tên tâp tin
Name "C:\Config.sys" As "C:\Config111.sys"
Name "C:\Config111.sys" As "C:\Config.sys"
'Gán thuôc tính cho File và thu muc
SetAttr "C:\Config.sys", vbHidden + vbReadOnly

' PHÂN VBSCRIP5
'Ðoc tên file hay folder cuôi cùng cua Path
Dim fso, GetAName, MySt
Set fso = CreateObject("Scripting.FileSystemObject")
GetAName = fso.GetFileName("C:\windows\system32\Cmd.exe")
MsgBox GetAName
GetAName = fso.GetFileName("C:\windows\system32\")
MsgBox GetAName
'Ðoc tên file không Ðuôi hoac folder
GetAName = fso.GetBaseName("C:\windows\system32\Cmd.exe")
MsgBox GetAName
GetAName = fso.GetBaseName("C:\windows\system32\")
MsgBox GetAName
'Ngày tao, ngày sua, ngay truy nhâp file cuôi cùng
Set GetAName = fso.GetFile("C:\windows\system32\Cmd.exe")
MySt = GetAName.DateCreated
MySt = MySt & vbCrLf & GetAName.DateLastModified
MySt = MySt & vbCrLf & GetAName.DateLastAccessed
MsgBox MySt
'Tao và Mo' file và Viêt vào file
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set GetAName = fso.OpenTextFile("c:\test.txt", ForWriting, True)
'Viêt 1 dòng
GetAName.Write "Hello world!"
'viêt 3 ký tu trang
GetAName.WriteBlankLines (3)
'viêt 1 dòng và ký tu xuông dòng
GetAName.WriteLine "Testing 1, 2, 3."
'Mo' file và Ðoc file
Set GetAName = fso.OpenTextFile("c:\test.txt", ForReading)
MySt = GetAName.ReadAll
'Tao file Ðon gian
Set GetAName = fso.CreateTextFile("c:\test.txt", True)
'Ðóng file
GetAName.Close
'Move file
Set GetAName = fso.GetFile("c:\test.txt")
GetAName.Move "d:\test.txt"
'Xóa file
GetAName.Delete

'BÔ SUNG PHÂN FOLDER
'Ðoc tên tuyêt Ðôi cua folder, vd Ðang o' tai c:\mydocuments\reports
MsgBox fso.GetAbsolutePathName("c:\\\")
'Cú pháp: "c:" --> c:\mydocuments\reports "c:.." --> c:\mydocuments = lùi 1 câp
'"c:\..\..\mydocuments" --> c:\mydocuments = Ðoc lùi cho Ðên folder chi Ðinh
'"c:\\\" --> c:\ = lùi câp cao nhât "region1" --> c:\mydocuments\reports\region1 = Ðoc to'i thêm câp
'"c:*.*\may97" --> c:\mydocuments\reports\*.*\may97 = Ðoc to'i cho Ðên folder chi Ðinh

'Ðoc thu muc cha
MsgBox fso.GetParentFolderName("C:\windows\system")
End Sub

Tài Sản của Xuân Hoài
Tài sản
Thú cưng:
Nhân vật:
Vật phẩm:

Chữ ký của Xuân Hoài

Copy đúng link dười đây gửi đến nick yahoo bạn bè!

Tổng hợp các lệnh đơn gian trong vb6

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

Bài viết cùng chuyên mục

Bài viết liên quan

* Bài viết sưu tầm nên ghi rõ nguồn (Sưu Tâm). * Không dùng những ngôn từ thiếu lịch sư.* Tránh spam nhầm những chủ đề không liên quan.
* Bấm nút A/a bên góc phải nếu gặp vấn đề khi chèn hình vui.
* Nếu thấy bài viết hay, hãy bấm nút Người viết.
Yêu cầu viết tiếng Việt có dấu.
Permissions in this forum:Bạn không có quyền trả lời bài viết
-:- ThamKhaoIT.99k.Org -:- :: -:- TIN HỌC LẬP TRÌNH (HỌC HACK) -:- :: VB6-