Cách hiển thị file ẩn trong win7 ultimate ?

thanks

Nếu bạn làm các cách trên không được thì bạn vào star=> all programs=> Accessibility => mờ file notepad

Coppy mấy cái này vào notepad nha:

Message = "De co hieu qua ngay, Script nay se" & vbCR

Message = Message & "Close & Restart Windows Explorer." & vbCR

Message = Message & "Se khong anh huong gi toi SYSTEM." & vbCR & vbCR

Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

If X = 6 Then

On Error Resume Next

On Error Resume Next

Dim WSHShell, n, p, p1, p2, p3, itemtype, MyBox

Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden"

p1 = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt"

p2 = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedSuperHidden"

p3 = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden"

itemtype = "REG_DWORD"

n = WSHShell.RegRead (p)

errnum = Err.Number

if errnum <> 1 then

            WSHShell.RegWrite p, 2, itemtype

End If

If n = 2 Then

WSHShell.RegWrite p1, 0, itemtype

WSHShell.RegWrite p2, 1, itemtype

WSHShell.RegWrite p3, 1, itemtype  

WshShell.RegWrite p, 1, itemtype

   MyBox = MsgBox("Da ENABLED show all Hidden Files and Folders", 64, "Hidden Files and Folders")

End If

If n = 1 Then

WSHShell.RegWrite p1, 1, itemtype

WSHShell.RegWrite p2, 1, itemtype

WSHShell.RegWrite p3, 2, itemtype   

WshShell.Regwrite p, 2, itemtype

   MyBox = MsgBox("Da DISABLED show all Hidden Files and Folders", 64, "Hidden Files and Folders")

End If

Set WshShell = Nothing

On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegDelete "HKCRlnkfileNeverShowExt"

WshShell.RegDelete "HKCRDocShortcutNeverShowExt"

WshShell.RegDelete "HKCRInternetShortcutNeverShowExt"

WshShell.RegDelete "HKCRpiffileNeverShowExt"

WshShell.RegDelete "HKCRSHCmdFileNeverShowExt"

WshShell.RegDelete "HKCRShellScrapNeverShowExt"

On Error GoTo 0

For Each Process in GetObject("winmgmts:"). _

            ExecQuery ("select * from Win32_Process where name='explorer.exe'")

   Process.terminate(0)

Next

MsgBox "See u again :D." & vbcr & vbcr & "© Langkhach_VNP", 4096, "Done"

Else

MsgBox "Lenh da duoc huy bo :)." & vbcr & vbcr & "© Langkhach_VNP", 4096, "User Cancelled"

End If

On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")

VisitVNPOWER

Sub VisitVNPOWER

            If MsgBox("Script nay den tu Lang khach_VNPOWER.ORG forums" & vbCRLF & vbCRLF & "Ban co muon ghe tham Forums chung toi khong?", vbQuestion + vbYesNo + vbDefaultButton, "Visit VNPOWER") =6 Then

                        wshshell.Run "http://vnpower.org/forums"

            End If

End Sub

Rồi bạn save với tên ShowAllHidden_Enable_Disable.vbs rồi coppy vào phần bạn muốn mở ẩn. lưu ý khi ấn vào nó sẽ thoát thư mục bạn vào lại thư mục đó là thấy ẩn ngay.

Bạn có thể nhấn phím như sau:

- Nhấn phím Alt -> T -> O

- Cửa sổ xuất hiện, bạn chọn thẻ Folder Option

- Chọn vào phần Show hidden file and folder

Thế là OK!

bạn dell trả lời tốt quá. Tks bạn nhé!!!

- Mở Computer lên, vào Organize và chọn Folder and search options
- Ở cửa sổ hiện ra, chọn thẻ View và chọn Don't show hidden files, folders, or drives
- Chọn Apply và OK