تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري
#1
السادة الافاضل
اصاب الجهاز فيروس تسبب في اخفاء الملف مع عدم امكانية ارجاع خاصية مخفي مرة اخري
اي بنشط خاصية مفي
كيف الحل
ان ارجع الملف ظاهرا كما كان
الرد
تم الشكر بواسطة:
#2
1- ركب مضاد فايروسات
2- انشيء مجلد جديد وانقل محتويات المجلد السابق للمجلد الجديد
عندها تستطيع تغيير حالة الملفات
هذا اسرع شيء تسويه للحل
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#3
شكرا حضرتك
هذا بالنسبة للمجلد
لم تنفع هذه الطريقة مع الملفات
هل يوجد برنامج لارجاع الملفات الي وضعها ؟؟؟؟
اتمني حل
الرد
تم الشكر بواسطة:
#4
عندي ملف بيعمل كد ان شاء الله هرفعهولك
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

Heart
الرد
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
Try
            
Dim MyFolder As String "مسار المجلد المصاب"
            
Dim Dir As IO.DirectoryInfo = New IO.DirectoryInfo(MyFolder)

            
ChangeFoldersAttributes(Dir)

        Catch 
ex As Exception
            MsgBox
(ex.Message48"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.Message48"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.Message48"ChangeFilesAttributes")
        
End Try
    
End Sub 

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: ali.alfoly , sooriaty03 , الشاكي لله
#6
السندباد الاصلي
نتمني منك رفع الملف
وللعلم الملف الذي اصيب لا يظهر علي اي ويندوز
وايضا علي جهازي بعد حذف الفيروس وتنزيل وندوز جديد


الاستاذ kslawy
جاري التجربة ولك الشكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اقوم بعمل فلتر DataGridView مرسل لها البيانات من فورم اخري dametucorazon 12 190 10-07-18, 06:03 PM
آخر رد: elgokr
  كيف يمكن دمج ملفات الـ DLL مع الملف التنفيذي viv 6 165 07-05-18, 10:01 PM
آخر رد: viv
  [VB.NET] كود اخفاء عمود من الداتا قريد فيو hglogtd 2 106 01-05-18, 12:55 AM
آخر رد: hglogtd
  [VB.NET] نقل ملفات من الملف التفيذي الي جهاز العميل Top King 9 233 08-04-18, 06:59 PM
آخر رد: Top King
  [سؤال] كيفية اخفاء Scroll الخاصة بListbox وتحكم بScroll با لButtons Iman Mohamed Omran 3 114 10-03-18, 09:22 AM
آخر رد: Iman Mohamed Omran
  اخفاء رموز من التكست بوكس ابو روضة 4 189 08-03-18, 02:58 PM
آخر رد: ابو روضة
  [سؤال] كيف يتم اخفاء واظهار عمود عند عرض تقرير كريستال ريبورت اثناء التشغيل السيد الجوهري 1 155 08-03-18, 03:05 AM
آخر رد: spoony
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 137 28-02-18, 11:24 AM
آخر رد: silverlight
  [VB.NET] اضافة بيانات من داتا جريد فيو الي اخري محمد اسماعيل 0 98 21-02-18, 08:48 PM
آخر رد: محمد اسماعيل
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 158 12-01-18, 07:58 PM
آخر رد: waelalmsry75

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم