Cara Mengembalikan File Dan Folder Super Hidden

Cara Mengembalikan File Dan Folder Super Hidden - Pernah mengalami kehilangan data di flashdisk gara-gara di hidden filenya oleh virus namun karena kekurangan pengetahuan kita jadi panik. pastinya menyebalkan bukan karena tidak tahu Cara Mengembalikan File Dan Folder Super Hidden di flasdisk atau komputer sehingga membuat kita shock.

Oleh karena itu simak Cara Mengembalikan File Dan Folder Super Hidden dibawah ini:

Cara Mengembalikan File Dan Folder Super Hidden 1.

1. Langsung menuju Start - Run - CMD - Enter
2. Ketik perintah disitu : attrib -s -h Test
3. Lihat hasilnya

Cara Mengembalikan File Dan Folder Super Hidden 2

• Buka Notepad.
• Copy Script berikut ini.

'===
'PROGRAM REVEALER
'===


'MAIN CODE STARTS HERE
'===
If MsgBox("Buka file tersembunyi di FlashDisk ???", vbOKCancel + vbQuestion, "www.chivaz.net") = 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, "Metu"
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

• Simpan dengan nama buka-hidden.vbs.
• Jalankan file tersebut dimana file ada.

Jika tidak bisa dengan Cara Mengembalikan File Dan Folder Super Hidden yang kedua saya sarankan menggunakan Cara Mengembalikan File Dan Folder Super Hidden yang pertama saja karena relatif lebih mudah. Selamat mencoba Cara Mengembalikan File Dan Folder Super Hidden ya, owh iya jika ingin menjahili teman dengan menghiden data mereka anda bisa membaca Cara Menyembunyikan File Dan Folder Super Hidden.