Newsgroup: it.comp.os.win.xp
Titolo: Non visualizzare file/cartelle nascoste

Salve a tutti, mi sapete dire se e possibile
creare uno script o un qualche cosa di simile
che permetta con un doppio click di impostare
l'opzione nascondi file/cartelle e viceversa?
Grazie a tutti
Ciao

 l'opzione nascondi file/cartelle e viceversa?
Si vediamo avevo fatto qualcosa per un amico
aahh ..... tu vuoi non solo una cartella proprio l'opzione
Prova a vedere (non ho xp) se riesci a fere un shortcut
di questa opzione sul desk ...  ho visto un'altro thread dove
hanno consigliato una cosa simile per qualcosa di simile
Altrimenti ti crei 2 reg (con e senza)
Per vedere che impostazioni vengono cambiate :
RegShot 1.61e
http://www.pcworld.com/downloads/file_description/0,fid,19540,00.asp
http://www.snapfiles.com/get/regshot.html
http://files5.majorgeeks.com/files/3416a75f4cea9109507cacd8e2f2aefc/registry/regshot17_src_bin.zip
a mano fai il nascondi  ti crei uno snap col qui sopra  inverti
l'opzione fai un secondo snap e li compari
se e' per una specifica folder
' (*.vbs)
Set oShell = CreateObject("WScript.Shell")
'oShell .CurrentDirectory = "c:\Documenti"
sFolder = """C:\Test"""
' !!! ATTENZIONE!!!! mettere il percorso completo al posto di
' C:\Test della cartella che si vuole nascondere
oShell.Run "Attrib +h " & sFolder, 0, True
WScript.Sleep 500
oShell.SendKeys"{F5}"
  MsgBox "CARTELLE NASCOSTE !!!!!!!!"
' +h nascondi -h mostra
PS:
la stessa cosa si puo fare per dei file basta agire sul attrib :
'The newattributes argument can have any of the following values or any logical 'combination of the following values:
'Constant Value Description
'Normal 0 Normal file. No attributes are set.
'ReadOnly 1 Read-only file. Attribute is read/write.
'Hidden 2 Hidden file. Attribute is read/write.
'System 4 System file. Attribute is read/write.
'Volume 8 Disk drive volume label. Attribute is read-only.
'Directory 16 Folder or directory. Attribute is read-only.
'Archive 32 File has changed since last backup. Attribute is read/write.
'Alias 64 Link or shortcut. Attribute is read-only.
'Compressed 128 Compressed file. Attribute is read-only.
--
Fosco

[...]
... ok grazie!
Ciao

"Max"
questo e' un esempio generico di come interagire col registro
(in questo caso nasconde/mostra le estensioni dei file)
puoi prendere lo spunto per quello che vuoi fare tu
sKey ="HKEY_CURRENT_USER\Software\Microsoft\"& _
    "Windows\CurrentVersion\Explorer\Advanced\"
sValueName = "HideFileExt"
set shell = createobject("wscript.shell")
'oldValue = shell.RegRead(sKey & sValueName)
iRC = MsgBox("", vbYesNo, "Hide Extensions?")
If iRC = 6 Then
shell.RegWrite sKey & sValueName, 1, "REG_DWORD"
End If
If iRC = 7 Then
shell.RegWrite sKey & sValueName, 0, "REG_DWORD"
End If
'HideFileExt   where 1 = hide, 0 = don't hide
newValue = shell.RegRead(sKey & sValueName)
Shell.SendKeys"{F5}"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
PS:
'questo e' un esempio generico di come nascondere TUTTE le
'folder in una cartella
strFolder="C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
Set oFolder = oFSO.GetFolder(strFolder)
For Each oFolder In oFolder.SubFolders
''''''Msgbox oFolder
 rw_bits = 1 + 2 + 4 + 32
   'mask For read/write attribute bits
   ' = ReadOnly+Hidden+System+Archive
   oldattr = oFolder.Attributes And rw_bits 'get only the read/write bits
   newattr = oldattr or 2
   oFolder.Attributes = newattr
next
oShell.SendKeys"{F5}"
' si puo fare lo stessa anche per i file ... io non ho tempo adesso
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
--
Fosco

 ' si puo fare lo stessa anche per i file ... io non ho tempo adesso
questo setta l'attributo NASCOSTO  per TUTTI i file in
c:\windows\temp  .... ovviamenrte c:\windows\temp
e' una variabile che si puo' cambiare a piacimento
strFolder="C:\WINDOWS\TEMP"
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
Set oFolder = oFSO.GetFolder(strFolder)
For Each oFile In oFolder.Files
 rw_bits = 1 + 2 + 4 + 32
   'mask For read/write attribute bits
   ' = ReadOnly+Hidden+System+Archive
   oldattr = oFile.Attributes And rw_bits 'get only the read/write bits
   newattr = oldattr or 2
   oFile.Attributes = newattr
next
oShell.SendKeys"{F5}"
' ecco di nuovo la lista degli attr :
'0]Normal - Normal file. No attributes are set.
'1]ReadOnly - Read-only file. Attribute is read/write.
'2]Hidden - Hidden file. Attribute is read/write.
'4]System - System file. Attribute is read/write.
'8]Volume - Disk drive volume label. Attribute is read-only.
'16]Directory - Folder or directory. Attribute is read-only.
'32]Archive - File has changed since last backup. Attribute is read/write.
'64]Alias -Link or shortcut. Attribute is read-only.
'128]Compressed - Compressed file. Attribute Is read-only.
' notare come in questo esempio si e' settato
newattr = oldattr or 2
se per esempio cambiamo in
newattr = oldattr or 1
setteremo tutti i file in solo lettura
ecc
--
Fosco