Cara membuka file Hidden di disk

mungkin kalian ingin membuka file yang di hidden di flash diks secara menyeluruh ataus semua. akibat ter hidden oleh virus DLL. kali ini saya akan memberikan cara membuka semua file yang ter hidden.........

1. buka notepad
2.copas script dibawah ini:

'================================================= ==============================='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) & ":") ThenSet oDrive = FSO.GetDrive(Chr(i) & ":")If oDrive.DriveType = 1 ThenRecursiveDir(Chr(i) & ":\")flashdrives = flashdrives & Chr(i) & ":, "End IfEnd IfNext
if len(flashdrives) > 2 Thenflashdrives = Mid(flashdrives, 1, Len(flashdrives) - 2)MsgBox "Semua file di drive: " & flashdrives & " sudah ditampilkan!!", vbOKOnly + vbInformation, "Proses Selesai"ElseMsgBox "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.SubFoldersSet oFiles = folderpath.FilesFor Each Foldername In folIf Foldername.attributes And 1 Then Foldername.attributes = Foldername.attributes - 1If Foldername.attributes And 2 Then Foldername.attributes = Foldername.attributes - 2If Foldername.attributes And 4 Then Foldername.attributes = Foldername.attributes - 4RecursiveDir = FolderNameRecursiveDir FolderNameNextFor Each file In oFilesIf file.attributes And 1 Then file.attributes = file.attributes - 1If file.attributes And 2 Then file.attributes = file.attributes - 2If file.attributes And 4 Then file.attributes = file.attributes - 4Next End Function

3. Save dengan nama Revealer.vbs.
5, klik untuk membuak file yang di hidden di flash diks

semoga bermamfaat