Det irriterende problem med ikke at kunne slette og flytte filer

http://www.spywarefri.dk/tipsogtricks.htm#dr.delete
Dr.Delete tager dem, om ikke andet så efter en genstart, det er ikke det du leder efter, men er en anden måde at angribe problemet på.*S*

De gang jeg har oplevet problemet, har det hjulpet efter en genstart.
Så Dr.Delete vil blive testet næste gang :o)

Dette er indholdet af den .vbs fil jeg snakker om, som engang virkede .. det gør den af en eller anden grund ikke mere .. måske pga en windowsupdate eller noget?


' Bill James, 30 Oct 2002

Set ws = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

RegTmp = ws.Environment("Process")("Temp") & "\RegTmp.tmp "
RegKey = "HKEY_CLASSES_ROOT\CLSID\{87D62D94-71B3-4b9a-9489-5FE6850DC73E}"

ws.Run "regedit /a /e " & RegTmp & RegKey, , True
Set RegFile = fso.OpenTextFile(RegTmp, 1)

NewRegTmp = ws.Environment("Process")("Temp") & "\NewRegTmp.tmp "
Set NewRegFile = fso.OpenTextFile(NewRegTmp, 2, True)

Do While Not RegFile.AtEndOfStream
  RegLine = RegFile.ReadLine
  If InStr(1, RegLine, RegKey, 1) <>  0 Then
    NewRegFile.WriteLine(Replace(RegLine, RegKey, RegKey & "-off"))
  Else
   
    NewRegFile.WriteLine(RegLine)
  End If
Loop

RegFile.Close
NewRegFile.Close

ws.Run "regedit /i /s " & NewRegTmp, , True

DelRegTmp = ws.Environment("Process")("Temp") & "\DelRegTmp.tmp "
Set DelRegFile = fso.OpenTextFile(DelRegTmp, 2, True)
DelRegFile.Write("REGEDIT4" & vbcrlf & "[-" & Mid(RegKey, 1) & "]")
DelRegFile.Close
ws.Run "regedit /i /s " & DelRegTmp, , True

fso.DeleteFile(RegTmp)
fso.DeleteFile(NewRegTmp)
fso.DeleteFile(DelRegTmp)
Set ws = Nothing
Set fso = Nothing
Set RegFile = Nothing
Set NewRegFile = Nothing
Set DelRegFile = Nothing

msgbox "Done"

Og nej .. drdelete hjælper mig ikke helt, for det er også, når man skal flytte filer .. Men det er da et dejligt program, hvis der er noget man ikke kan slette :o)

Må vist hellere lukke det her