Nguyên nhân khiến Folder bị mờ đi (2 người xem)

[Phanhanhdai]

USB của em không hiểu vì sao Folder bị mờ đi, khi ấn chuột phải chọn Properties thì phần đánh dấu vào Hidden bị vô hiệu hoá không hiểu nguyên nhân gì? Khi sửa bản Word lúc lưu nó hỏi mình có lưu không? Khi đồng ý thì nó hiện ra tên cho mình lưu là ~WRL231 để mình đánh tên khác thay thế, nếu mình chọn không lưu thì nó sẽ xoá file mình đi, chỉ còn file dạng ~WRL231 thôi (nhưng bị hỏng). Mong các bác tư vấn giúp.

 

[yeuthamhangxom]

Nếu lưu nó báo vậy có thể là do bạn mở trực tiếp từ hòm thư hay từ 1 nơi nào đó trên mạng. Chứ không phải là bạn ở trong 1 Folder nào đó trong máy. còn phần Hidden trong Folder bị vô hiệu hóa thì mình không rõ lắm.
Chúc vui

 

[MinhCong]

USB của em không hiểu vì sao Folder bị mờ đi, khi ấn chuột phải chọn Properties thì phần đánh dấu vào Hidden bị vô hiệu hoá không hiểu nguyên nhân gì? Khi sửa bản Word lúc lưu nó hỏi mình có lưu không? Khi đồng ý thì nó hiện ra tên cho mình lưu là ~WRL231 để mình đánh tên khác thay thế, nếu mình chọn không lưu thì nó sẽ xoá file mình đi, chỉ còn file dạng ~WRL231 thôi (nhưng bị hỏng). Mong các bác tư vấn giúp.

Có lẽ ÚB của Bạn bị virut làm mờ có khi nó ẩn không nhìn thấy file nữa. Bạn diệt virut xong mở USB lên vào vào tool folder option -> view bấm restore defaults xem sao.

 

[Ba Tê]

USB của em không hiểu vì sao Folder bị mờ đi, khi ấn chuột phải chọn Properties thì phần đánh dấu vào Hidden bị vô hiệu hoá không hiểu nguyên nhân gì? Khi sửa bản Word lúc lưu nó hỏi mình có lưu không? Khi đồng ý thì nó hiện ra tên cho mình lưu là ~WRL231 để mình đánh tên khác thay thế, nếu mình chọn không lưu thì nó sẽ xoá file mình đi, chỉ còn file dạng ~WRL231 thôi (nhưng bị hỏng). Mong các bác tư vấn giúp.

-------------
Chắc chắn là do Virus, Bạn quét sạch Virus, xóa bỏ tập tin Autorun.inf, xóa bỏ các tập tin lạ (không phải do bạn tạo ra - nhất là các tập tin có đuôi là .exe).
Muốn phục hồi cho nó hết bị "mờ", tôi không biết cách, chỉ làm thủ công là tạo Folder mới, Copy các tập tin trong Folder bị mờ sang Folder mới, xóa bỏ Folder bị mờ đi. (Tôi đã từng bị và từng làm như thế - Chẳng biết cách nào khác hay hơn, hy vọng có Bạn nào đó có cách khắc phục dễ hơn).
Thân.

 

[violetdylan]

Chào các bạn

Hi vọng file này sẽ giúp các bạn giải quyết được vấn đề.

 

[the_wind]

Chào các bạn

Hi vọng file này sẽ giúp các bạn giải quyết được vấn đề.

Bác violetdylan gửi cái gì cho mọi người vậy? Khi tôi vừa mở ra thì đã thấy thằng Kaspersky của tui báo rùi, hình như nó làm ẩn file đi ah.
Tình trạng như file word của bạn giống như của tui. Nhưng tui vẫn chưa giải quyết được. Chỉ khắc phục bằng cách là không dùng save mà luôn phải dùng Save as (F12) để lưu lại. Kể cũng bực mình thật

 

[Dauthivan]

Chào các bạn

Hi vọng file này sẽ giúp các bạn giải quyết được vấn đề.

Bác có thể hướng dẫn mọi người về file bác gửi lên được không? Em không hiểu nó là cái gì vậy?

 

[violetdylan]

Bác có thể hướng dẫn mọi người về file bác gửi lên được không? Em không hiểu nó là cái gì vậy?

Cái này trên trang 911.com.vn

Giúp các bạn làm hiện lên các folder đã bị ẩn

Option Explicit
Dim WSHShell, n, MyBox, p, p1, Title911, errnum, vers, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p = p & "NoFolderOptions"
p1 = p1 & "NoFolderOptions"
itemtype = "REG_DWORD"
Title911 = "Trung tam 911.com.vn"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number
if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
WSHShell.RegWrite p1, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
Mybox = MsgBox("Folder Options cua ban da bi AN DI, logoff hoac khoi dong lai may tinh de thay doi co tac dung", 4096, Title911)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
WSHShell.RegWrite p1, n, itemtype
Mybox = MsgBox("Folder Options cua ban da duoc HIEN LEN, logoff hoac khoi dong lai may tinh de thay doi co tac dung", 4096, Title911)
End If

Trên là nội dung file mà mình đã gửi lên

http://www.911.com.vn/download/folder_option.vbs

 

[chibi]

Dùng thử cái file đính kèm của BKIS xem, tôi thấy ổn.

 

[Phanhanhdai]

Dùng thử cái file đính kèm của BKIS xem, tôi thấy ổn.

Cái phần mềm của bác hay quá, tất cả các file ẩn của em nó hiện ra rồi, nhưng nó vẫn bị lỗi khi save file word, chương trình word báo lỗi này: "Word cannot complete the save due to a file permission error". Sau đó, file word này của em bị xóa luôn. Em sử dụng MS Office 2007 (máy của em không hề sử dụng phần mềm Kaspersky Vietnam).

 

[ndu96081631]

Cái phần mềm của bác hay quá, tất cả các file ẩn của em nó hiện ra rồi.

Ẹc... Ẹc...
Giá như bạn biết 1 tẹo về các lệnh DOS thì chỉ 1 dòng con con là giải quyết xong
- Start\Run gõ vào CMD
- Trong cửa sổ CMD gõ vào lệnh: ATTRIB [đường dẩn đến folder] -s -h -r
Mấy sự cố nhỏ xíu như lổi Folder Options, Task Manager, Regedit.. tôi chẳng khi nào phải cần đến phần mềm cả
Học hỏi thêm kiến thức về hệ thống để tự cứu mình sẽ không bao giờ thừa!

 

[Phanhanhdai]

Ẹc... Ẹc...
Giá như bạn biết 1 tẹo về các lệnh DOS thì chỉ 1 dòng con con là giải quyết xong
- Start\Run gõ vào CMD
- Trong cửa sổ CMD gõ vào lệnh: ATTRIB [đường dẩn đến folder] -s -h -r
Mấy sự cố nhỏ xíu như lổi Folder Options, Task Manager, Regedit.. tôi chẳng khi nào phải cần đến phần mềm cả
Học hỏi thêm kiến thức về hệ thống để tự cứu mình sẽ không bao giờ thừa!

Em cũng đã muốn tìm hiểu về hệ thống các câu lệnh như bác đã hướng dẫn ở trên, nhưng em không biết kiến thức phần đó nằm ở sách nào hay địa chỉ nào? Bác chỉ giúp em với, cảm ơn bác nhiều.

 

[Phanhanhdai]

Ẹc... Ẹc...
Giá như bạn biết 1 tẹo về các lệnh DOS thì chỉ 1 dòng con con là giải quyết xong
- Start\Run gõ vào CMD
- Trong cửa sổ CMD gõ vào lệnh: ATTRIB [đường dẩn đến folder] -s -h -r
Mấy sự cố nhỏ xíu như lổi Folder Options, Task Manager, Regedit.. tôi chẳng khi nào phải cần đến phần mềm cả
Học hỏi thêm kiến thức về hệ thống để tự cứu mình sẽ không bao giờ thừa!

Vì kiến thức cơ bản em chưa biết nhiều, có gì bác chỉ bảo cho em đã đánh câu lệnh Attrib\d-s-h-r (tức là em muốn làm việc với ổ D) sau đó gõ Enter nhưng không được hay câu lệnh trên có gì lỗi? Mong bác giúp cho.

 

[ndu96081631]

Vì kiến thức cơ bản em chưa biết nhiều, có gì bác chỉ bảo cho em đã đánh câu lệnh Attrib\d-s-h-r (tức là em muốn làm việc với ổ D) sau đó gõ Enter nhưng không được hay câu lệnh trên có gì lỗi? Mong bác giúp cho.

Phải có đường dẩn đến thư mục chứ ---> Chơi nguyên ổ D nó không chịu đâu!
Tức là trong ổ D của bạn có 4 thư mục, bạn phải làm 4 lần lệnh trên với từng folder
Ví dụ:
- Trong ổ D có thư mục NDU đang bị ẩn
- Bạn gõ lệnh sau để Unhide: ATTTRIB D:\NDU -s -h

 

[anhtuan1066]

- Để giúp bạn đở mất công nhớ cú pháp lệnh
- Để chứng tỏ rằng Excel có thể làm được việc này
Tôi viết 1 ứng dụng điều khiển thuộc tính các thư mục và các file cho bạn đây
Chương trình có giao diện thế này:

- Bấm nút Browse để duyệt đến folder, nơi bạn cần điều khiển thuộc tính
- Check vào Include sub folders nếu muốn điều khiển thuộc tính các thư mục con
- Check vào Include files nếu muốn điều khiển thuộc tính cho cả các file
- Các mục Archive, System, Hidden chắc không cần giải thích
- Bấm nút Apply để cập nhật thay đổi
---------------------
Code cũng khá đơn giản:

Private Sub Cmd1_Click()
  On Error Resume Next
  With CreateObject("Shell.Application")
    FolPath = .BrowseForFolder(0, "", 1).Self.Path
  End With
End Sub

Private Sub Cmd2_Click()
  Dim AttVal As Long
  AttVal = -32 * Arc - 4 * Sys - 2 * Hid
  If AttVal > 0 Then
    SetAttrib FolPath, InSubFol, InFiles, AttVal
  End If
End Sub

Private Sub SetAttrib(FolderName As String, InSub As Boolean, InFiles As Boolean, AttVal As Long)
  Dim SubFld, FileItem
  On Error Resume Next
  With CreateObject("Scripting.FileSystemObject")
    With .GetFolder(FolderName)
      .Attributes = AttVal
      If InFiles Then
        For Each FileItem In .Files
          FileItem.Attributes = AttVal
        Next FileItem
      End If
      If InSub Then
        For Each SubFld In .SubFolders
          SetAttrib SubFld.Path, True, InFiles, AttVal
        Next SubFld
      End If
    End With
  End With
End Sub

-------------------------
Mở file và làm việc nhé
Cây nhà lá vườn, mời thưởng thức