Newsgroup: it.comp.aiuto
Titolo: close

Com'è possibile recuperare una cartella resa invisibile con uno script
chiamato "close" (preso dai CD di PC World), ora che il computer non riesce
più a trovarla anche se è ancora nell'hard disk?
Non posso più spostarla, né rinominarla, ne cancellarla.
Aiutatemi


Potresti riavviare in DOS e stamparti le directory su un file o visionare
l'elenco a video. Naturalmente se non hai nemmeno un'idea di dove sia,
aspettati un elenco ben nutrito. Cmq, dai nomi delle cartelle dovresti
almeno desumere qualcosa. Se la individui, sempre dal DOS, probabilmente
troverai che il nome è stato modificato dal programma Close (basta anche un
solo carattere ASCII). Allora rinomina a tua volta la cartella, esci dal DOS
e cerca la cartella riniominata.
penso vi siano altre soluzioni, magari te le consiglierà qualcuno che
conosce il programma.
Ciao

 con uno script chiamato "close"
Apri "close" con Notepad ( invia a notepad) e vedi che
operazione ha fatto.
E' probabile che tu debba andare in dos e fare al contrario.
Se non ne capisci prova a postare la parte saliente dello script
( se e' superiore a 5 kb no' ).
Prova prima di ogni altra cosa start esegui impostazioni .....
opzioni cartella Visualizza "Mostra tutti i file"
--
Fosco

 ( se e' superiore a 5 kb no' ).
Ecco tutto il tabulato:
'================================================
dim ordner(40)
Set dat = CreateObject("Scripting.FileSystemObject")
Set MyShell=Wscript.CreateObject("Wscript.Shell")
w = WScript.ScriptFullName
Set a = dat.OpenTextFile(w, 1)
Set b = dat.CreateTextFile("c:\$tmp$.BAT", True)
do
 n=n+1
 zeile=a.readline
 ordner(n)=mid(zeile,2)
loop until instr(ordner(n),"========")
code=a.readall
a.Close
for x = 1 to n - 1
 liste = liste & chr(13) & chr(10) & ordner(x)
next
if n > 1 then
 modus = MyShell.Popup ("Bloccare cartelle?",,"",3)
else
 modus = 6
end if
if modus=2 then
 wscript.quit
else
 if modus=6 then
  WinDisable
 else
  WinEnable
 end if
end if
a.Writeline "'================================================"
a.Write code
a.Close
b.close
MyShell.run "
command.com
 /c c:\$tmp$.BAT",2,True
set del=dat.Getfile("c:\$tmp$.BAT")
del.delete
Sub WinDisable()
 Set a = dat.CreateTextFile(w, True)
 for x = 1 to n - 1
  a.writeline "'" & ordner(x)
 next
 do
  verz=inputbox("Inserire cartella da bloccare" & chr(13) & chr(10) & liste)
  if verz <> "" then
  on error resume next
   set check=dat.getfolder(verz)
   if err.Number = 0 then
    a.writeline "'" & verz
    befehl="ren " & chr(34) & verz & chr(34) & " " & chr(34) & chr(223) &
check.name
 & chr(34)
    b.writeline befehl
    liste=liste & chr(13) & chr(10) & verz
   else
    msgbox "Cartella mancante!"
    err.clear
   end if
  end if
 loop until verz=""
end sub
sub WinEnable()
 Set a = dat.CreateTextFile(w, True)
 frei=MyShell.popup("Cartelle da rilasciare?" & chr(13) & chr(10) &
liste,,"",4)
 if frei = 6 then
  for x = 1 to n - 1
   nurname=ordner(x)
   do
    i=instr(nurname,"\")
    if i > 0 then nurname=mid(nurname,i+1)
   loop until i=0
   vorne=len(ordner(x))-len(nurname)
   befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname &
chr(34) & " " & chr(34) & nurname & chr(34)
   b.writeline befehl
  next
 end if
 if frei = 7 then
  for x = 1 to n - 1
   frei=MyShell.popup(ordner(x) & " rilascio?",,"",4)
   if frei=7 then a.writeline "'" & ordner(x)
   if frei=6 then
    nurname=ordner(x)
    do
     i=instr(nurname,"\")
     if i > 0 then nurname=mid(nurname,i+1)
    loop until i=0
    vorne=len(ordner(x))-len(nurname)
    befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname &
chr(34) & " " & chr(34) & nurname & chr(34)
    b.writeline befehl
   end if
  next
 end if
end sub
Grazie ancora.

 e cerca la cartella riniominata.
Purtroppo non posso rinominarla.
Grazie di nuovo

Donato Mengarelli ha scritto:

scusa ma la cartella l'hai trovata? la puoi aprire da dos ? se si crei
una cartella e poi ci copi il contenuto
-- 
             \ l /
             (@ @)        email
       ---o00-(_)-00o--g...@tin.it---

>>>>>& chr(223)
Non giocarci piu' dopo
In dos posizionati nella cartella appena superiore alla tua e
Ren ALT+0223tuacartella tuacartella
(ALT+0223 da tastierino numerico tenendo ALT premuto
fino alla fine e rilasciato dopo l'ultimo numero)
Facciamo l'esempio che la cartella in questione e'
c:\windows\temp\bloccare
Start chiudi >>riavvia il sistema in modalita' ms-dos
c:\windows>cd temp
(invio)
avrai
c:\windows\temp>
digita
ren ALT+0223blocc~1 x
(invio)
Riavvia con control alt canc
Avrai al posto della cartella bloccata una cartella che si
chiama  x e se vuoi puoi rinominare come vuoi
La ~ si ottiene con ALT+0126
Se la tua cartella a un nome strano la puoi visualizzare da dos
facendo dir
C:\WINDOWS\CHARMAP.EXE
Se non hai confidenza col dos creati una file bat con dentro
( facciamo il conto che la cartella sia c:\prova)
ren "C:\ßprova" "x"
Al posto di prova metti il nome della tua cartella
--
Fosco

 Non giocarci piu' dopo
OK e grazie ancora.