تقييم الموضوع :
  • 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
جاري التجربة ولك الشكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن اضافة بيانات اخري عند الطباعه مع داتا جريد فيو مثل الاسم التاريخ رقم الفاتور ahmedhhh2 3 515 13-03-22, 06:03 PM
آخر رد: ahmedhhh2
  هل يوجد خاصية للتحكم في عرض الاعمدة بالداتا جريد فيو essawq 9 3,572 11-03-22, 07:55 AM
آخر رد: ahmedhhh2
  السلام عليكم عندي ثلاث Button اريد عند اخفاء ال Button2 يتم ترحيل Button1 معButton3 ahmedhhh2 4 504 05-03-22, 01:18 PM
آخر رد: ahmedhhh2
  اسم الملف مستمد من اداة التاريخ datetimepicker atefkhalf2004 3 617 02-03-22, 10:57 PM
آخر رد: atefkhalf2004
  نقل بيانات داتاا جريد الي اخري atefkhalf2004 5 2,253 11-02-22, 10:30 PM
آخر رد: ahmedhhh2
  فوائد الملف app.config fattah_hegazy 2 460 05-01-22, 12:47 AM
آخر رد: yassoo1985
  تغيير مسار قاعدة الملف قاعدة البيانات أكسس أبووسم 3 740 08-12-21, 03:40 PM
آخر رد: أبووسم
Information [سؤال] كيفية اخفاء عمود و تصغير حجم الكود listview alims 5 728 07-11-21, 02:49 PM
آخر رد: alims
  [VB.NET] هل يوجد كود اخفاء اي عملية من مدير المهام ahmed112001 0 402 27-08-21, 12:57 PM
آخر رد: ahmed112001
  تحقق عن قيمة فى الداتا جريد مع قيمة فى داتا جريد اخري mostafa12 4 2,333 22-07-21, 09:33 PM
آخر رد: إليسار

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


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