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
14.55
Faiz
Setelah ramai dibicarakan, Kemarin (19/09/13) bertempat di Foundry 8, SCBD Jakarta, BBM untuk Android dan iOS resmi diluncurkan. 
Posted in: 
