Cara Menampilkan Semua File Yang Di Hidden Pada Flash Disk

Pernahkan anda menemukan file yang hilang pada flashdisk anda ? apakah penyebabnya , apakah itu teman anda yang menghapusnya ? atau jangan-jangan ada virus jahat yang menyusup kedalam flash disk anda dan menghilangkan atau meng-Hidden file anda ? tenang saja , hari ini Faiz1801 akan membagikan tips Menampilkan Semua File yang Di Hidden pada Flash Disk , jika memang anda sangat membutuhkan , silahkan simak dibawah ini

Alat yang diperlukan :

• Tangan anda untuk Berpikir
• Otak anda untuk mengetik

Langkah Pertama
Siapkan sebuah File Notepad atau Wordpad

Langkah Kedua
setelah Notepad terbuka , pastekan script ini

'================================================= ===============================
'PROGRAM REVEALER
'Created by Indonesian Hacker Team (c) 2009
'================================================= ===============================


'MAIN CODE STARTS HERE
'================================================= ===============================
If MsgBox("Tampilkan semua file tersembunyi di FlashDisk", vbOKCancel + vbQuestion, "Revealer by Zoefar (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

Langkah Ketiga
setelah dipastekan di Notepad , save file itu dengan nama , Buka.VBS

Langkah Keempat
jalankan file berekstensi VBS itu , tamat

sekian , semoga bermanfaat

Sumber: zoefarblog

Posted in: Komputer