Masaüstündeki Herşey Kayboldu .. Yardım Pls...

[efecan752-]

Arkadaşlar bilgisayarın masaüstünde normal dosyalarımı düzenlerken birden bire herşey kayboldu.. Geri dönüşüm kutusu da bunlara dahi..

İşte Resim...

Lütfen Yardım Edin...!

Ancak C:\Documents and Settings\*\Desktop tan girdiğimde masaüstündeki dosyalarım görünüor...

[halilt]

sağ klik simgeleri yerleştire baktınızmı,masaüstü simgelerini göster e...?

[CCoder]

Eger StarDock Fences kullaniyorsaniz: masaustune cift tiklayin sol tusla.

Ve hooooooooop hersey geri gelecektir

Saygilarimla,

CCoder.

[d_drms]

Masaüstü sağ tık + "simgeleri yerleştir" + "masaüstü simgelerini göster" in yanına bi tik koy tmm dır .

[efecan752-]

d_drms süpersin abi yha ... bni büyük bi dertten kurtardın ... çok sağol .. diğer arkadaşlara da çok tşk ederim...

[egolas41]

[_AyhaN_]

çözüm kolay

notpad olustur

'Enable or Disable Desktop Icons


Message = "To work correctly, the script will close" & vbCR

Message = Message & "and restart the Windows Explorer shell." & vbCR

Message = Message & "This will not harm your system." & vbCR & vbCR

Message = Message & "Continue?"


X = MsgBox(Message, vbYesNo, "Notice")


If X = 6 Then


On Error Resume Next


Dim WSHShell, n, MyBox, p, t, errnum, vers

Dim itemtype

Dim enab, disab, jobfunc


Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"


itemtype = "REG_DWORD"


enab = "ENABLED"

disab = "DISABLED"

jobfunc = "Desktop Icons are now "


t = "Confirmation"

Err.Clear

n = WSHShell.RegRead (p)

errnum = Err.Number


if errnum <> 0 then


   WSHShell.RegWrite p, 0, itemtype

End If


If n = 0 Then

   n = 1

WSHShell.RegWrite p, n, itemtype

Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)

ElseIf n = 1 then

   n = 0

WSHShell.RegWrite p, n, itemtype

Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)

End If


Set WshShell = Nothing


On Error GoTo 0


For Each Process in GetObject("winmgmts:"). _

   ExecQuery ("select * from Win32_Process where name='explorer.exe'")

   Process.terminate(0)

Next


MsgBox "Finished." & vbcr & vbcr , 4096, "Done"


Else


MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"


End If[/CODE]

yaz içine kaydet ismini x.vbs yap cift tıhla gelir..

Yapamadıysan indir çift Tıhla :

Please register to see this content.

[efecan752-]

Eyw.. Çok sağol ... İki tıkla hallettim ama bunu da arşive kaydedeyim.. Zor günlerim için tekrar teşekkürler...

[_AyhaN_]

Eyw.. Çok sağol ... İki tıkla hallettim ama bunu da arşive kaydedeyim.. Zor günlerim için tekrar teşekkürler...

eyw. ne dmk aynı sorun benımde basıma gelmişti .