[Amin_Mansouri]

درود
شاید سیستم بعضی از دوستان تمامی فایل ها و پوشه های سیستمشون توسط کرم مخفی شده است.
با سورس کد زیر که توسط ویژوال بیسیک 6 نوشتم میتونید به راحتی مشکلتون رو حل کنید.

سورس کد: 

کد:

 'CONVERT Attrib all folder or file to Normal Attrib
'Programmer : amin mansouri www.parsicoders.com
'Please Add Control Drive1 + Command1 (Button)
Private Sub Command1_Click()
    Dim sFileText As String
    Dim iFileNo As Integer
    Dim Path As String
    Path = Environ("temp") + "\parsicoders.bat"
      iFileNo = FreeFile
          'open the file for writing
      Open Path For Output As #iFileNo
      Print #iFileNo, "cd.."
      Print #iFileNo, "cd.."
      Print #iFileNo, Left(Drive1.Drive, 2)
      Print #iFileNo, "Attrib -h -s /d /s"
          'close the file (if you dont do this, you wont be able to open it again!)
      Close #iFileNo
Shell Path, vbMaximizedFocus
End Sub