Script untuk menampilkan semua hidden file dalam FD

Nih Anda tulis copy aja nih code ke notepad
Nieh Codenya :

'================================================================================
'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) & ":") 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

Trus save dengan nama "Revealer.vbs" kagak pake tanda petik gan....

Klik 2 kali ja....trus OK....

hehehe................