Home » , » Cara Mengembalikan File Dan Folder Super Hidden

Cara Mengembalikan File Dan Folder Super Hidden

Written By tergaul on Rabu, 08 Februari 2012 | 19.12

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.
    Share this article :

    0 komentar:

    Posting Komentar

     
    Support : Your Link | Your Link | Your Link
    Copyright © 2013. Tergaul - All Rights Reserved
    Template Created by Creating Website Published by Mas Template
    Proudly powered by Blogger