هل فقدت خيارات الملفات Folder Options ؟؟؟ هل ترغب باستعادتها فى ثوانى ؟؟

[shadow]

السلام عليكم ورحمة الله
اخوانى الاعزاء

هل فقدت خيارات الملفات (Folder Options)

هل كان السبب فيروس؟
ام
انت شخصياً وذلك اثناء عملك بالرجسترى؟

ايىً كان السبب
فحمل الملف ودبل كليك على محتواه
وبعده ستجد ان خيارات الملفات قد ظهرت من جديد
والسبب
بان الملف المرفق يعيد لك ضبط قيم الرجسترى بالصيغه الصحيحه التى يجب ان تكون عليها


وتحياتى لكم
ووفقنا الله

[Abu Ahmed*GEM]

شكرا على البرنامج المهم

بارك الله فيك

[3llam]

تسلم
.........................

[amjed5]

مشكور وبارك الله فيك علي الطريقة المختصرة الرائعة

مزيد من إبداعك وبالتوفيق

[SALIHMOB]

مشكووووووووووووووووووووووووووووووووووووور

[adelaowd]

الشكر كل الشكر اخي العزيز وبارك الله فيك

[كــــرم]

شكرا على البرنامج المهم

بارك الله فيك

[وليد فتحي]

أنا حملت الملف ودي كانت محتوياته

'togglefolderopts.vbs - Enables/Disables Folder Options settings 'in Win95/98

'© Doug Knox - rev 12/02/99

'Thanks to Max Spyridakis for his suggestions

Option Explicit

On Error Resume Next
Dim WSH****l, itemtype, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim urladdr
Set WSH****l = W******.CreateObject("W******.****l")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
p1 = "NoFolderOptions"
p2 = p & p1
itemtype = "REG_DWORD"
t = "Toggle Folder Options"
mustboot = "Log off and back on, or restart your pc to"
mustboot = mustboot & vbCR & "effect the changes"
'This section tries to read the registry key value. If not present an
'error is generated. Normal error return should be 0 if value is
'present
t = "Enable/Disable Folder Options"
Err.Clear
n = WSH****l.RegRead (p2)
errnum = Err.Number
if errnum <> 0 then
'Create the registry key value for NoFolderOptions with value 0
WSH****l.RegWrite p2, 0, itemtype
End If
'If the key is present, or was created, it is toggled
'Confirmations can be disabled by commenting out
'the two MyBox lines below
If n = 0 Then
n = 1
WSH****l.RegWrite p2, n, itemtype
Mybox = MsgBox("Folder Options are now DISABLED" & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
Mybox = MsgBox("Folder Options are now ENABLED" & vbCR & mustboot, 4096, t)
WSH****l.RegWrite p2, n, itemtype
End If

وقد لاحظت ان الامتداد vbs وليس reg او bat او cmd زى ملفات الريجسترى العادية

وصراحتاً لم اجرؤ للضغط عليه .. اخشي ان يتلفى شئ حيث اننى

غير متأكد من الوظيفة او الملف نفسه

كنت اريد تفاصيل اكثر عن هذا الملف خصوصا هذا السطر

Enables/Disables Folder Options settings

'in Win95/98

وأنت تعلم أن تحديد النظام القابل لهذه القيم لأن الرجستري لا تستوي تماما القيم الخاصة به حتى XP يختلف عن وندوز 7 مثلا واذا انعكست تصير الكارثة

مشكور وأرجو الافادة

[وليد فتحي]

أخي الفاضل shadow مازلت بإنتظار ردك على موضوعي

[yasmor]

بارك الله فيك