[atefkhalf2004]

السادة الافاضل
اصاب الجهاز فيروس تسبب في اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري
اي بنشط خاصية مفي
كيف الحل
ان ارجع الملف ظاهرا كما كان

[أبو عمر]

1- ركب مضاد فايروسات
2- انشيء مجلد جديد وانقل محتويات المجلد السابق للمجلد الجديد
عندها تستطيع تغيير حالة الملفات
هذا اسرع شيء تسويه للحل

[atefkhalf2004]

شكرا حضرتك
هذا بالنسبة للمجلد
لم تنفع هذه الطريقة مع الملفات
هل يوجد برنامج لارجاع الملفات الي وضعها ؟؟؟؟
اتمني حل

[السندباد المصري]

عندي ملف بيعمل كد ان شاء الله هرفعهولك

[kslawy]

السلام عليكم ورحمة الله وبركاته

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim MyFolder As String = "مسار المجلد المصاب"
            Dim Dir As IO.DirectoryInfo = New IO.DirectoryInfo(MyFolder)

            ChangeFoldersAttributes(Dir)

        Catch ex As Exception
            MsgBox(ex.Message, 48, "Change Attributes")
        End Try
    End Sub

    Private Sub ChangeFoldersAttributes(ByVal dir As IO.DirectoryInfo)
        Try
            ChangeFilesAttributes(dir) ' البحث عن ملفات مخفية في المجلد الرئيس

            For Each d As IO.DirectoryInfo In dir.GetDirectories
                d.Attributes = IO.FileAttributes.Normal ' اظهار المجلد
                ChangeFilesAttributes(d) ' البحث عن ملفات مخفية في المجلد المحدد

                If d.GetDirectories.Length > 0 Then ' اذا كان المجلد الحالي يحتوي علي مجلدات فرعية سيتم العمل عليها
                    ChangeFoldersAttributes(d)
                End If

            Next
        Catch ex As Exception
            MsgBox(ex.Message, 48, "ChangeFoldersAttributes")
        End Try
    End Sub

    Private Sub ChangeFilesAttributes(ByVal dir As IO.DirectoryInfo)
        Try
            For Each f As IO.FileInfo In dir.GetFiles
                f.Attributes = IO.FileAttributes.Normal
            Next
        Catch ex As Exception
            MsgBox(ex.Message, 48, "ChangeFilesAttributes")
        End Try
    End Sub 


****
***
**
*

[atefkhalf2004]

السندباد الاصلي
نتمني منك رفع الملف
وللعلم الملف الذي اصيب لا يظهر علي اي ويندوز
وايضا علي جهازي بعد حذف الفيروس وتنزيل وندوز جديد


الاستاذ kslawy
جاري التجربة ولك الشكر