Script Untuk Menampilkan Semua Hidden File Dalam Flash Disk

Jika kalian ingin melihat file yang terhidden oleh virus dalam flash disk kalian,script ini mungkin bisa membantu untuk membuka file yang terhidden dalam flash disk kalian...

Code:

'================================================================================
'PROGRAM REVEALER
'Created by fxsatriyo (c) 2009
'================================================================================


'MAIN CODE STARTS HERE
'================================================================================
If MsgBox("Tampilkan semua file tersembunyi di FlashDisk???", vbOKCancel + vbQuestion, "Revealer by fxsatriyo (c) 2009") = vbOK Then

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim flashdrives

For i = Asc("C") To Asc("Z")
 If FSO.DriveExists(Chr(i) & ":") Then
    Set oDrive = FSO.GetDrive(Chr(i) & ":")
    If oDrive.DriveType = 1 Then
       RecursiveDir(Chr(i) & ":\")
       flashdrives = flashdrives & Chr(i) & ":, "
    End If
 End If
Next

if len(flashdrives) > 2 Then
 flashdrives = Mid(flashdrives, 1, Len(flashdrives) - 2)
 MsgBox "Semua file di drive: " & flashdrives &  " sudah ditampilkan!!", vbOKOnly + vbInformation, "Proses Selesai"
Else
 MsgBox "Tidak ada FlashDisk di komputer ini!!" , vbOKOnly + vbExclamation, "I QUIT"
End If

End If

'END OF MAIN CODE
'===============================================================================


'THE RECURSIVEDIR Function
'===============================================================================
function RecursiveDir (path)
 Set folderpath = fso.getfolder(path)
 Set fol = folderpath.SubFolders
 Set oFiles = folderpath.Files
 For Each Foldername In fol
    If Foldername.attributes And 1 Then Foldername.attributes = Foldername.attributes - 1
    If Foldername.attributes And 2 Then Foldername.attributes = Foldername.attributes - 2
    If Foldername.attributes And 4 Then Foldername.attributes = Foldername.attributes - 4
    RecursiveDir = FolderName
    RecursiveDir FolderName
 Next
 For Each file In oFiles
    If file.attributes And 1 Then file.attributes = file.attributes - 1
    If file.attributes And 2 Then file.attributes = file.attributes - 2
    If file.attributes And 4 Then file.attributes = file.attributes - 4
 Next 
End Function

Copas kode di atas lalu save dengan nama Revealer.vbs. Jalankan filenya lalu klik ok untuk menampilkan semua file & folder hidden dalam flash disk kalian.

Selamat mencoba!!!