Newsgroup: it.comp.os.win.xp
Titolo: Strani attributi

Visualizando le proprietà delle  directory contenenti le mie foto
delle vacanze (normali file jpg), la casella "sola lettura" appare con
uno strano checkmark grigio. Se provo a rendere i file modificabili,
cioé tolgo il segno di spunta,  il sistema risponde facendo finta di
applicare la modifca: invece, il segno di spunta ricompare ogni volta
che si visualizzano le proprietà.
Qualcuno mi sa spiegare il mistero? fra l'altro mi sembra che questo
mi dia problemi quando cerco di salvare i file contenuti in queste
directory.
Grazie in anticipo per qualsiasi risposta
Ciao
Tom


wrote:

Credo che la spunta grigia indichi che l'attributo è stato acquisito
per propagazione.
Intendo che i file immagine NON sono settati con la spunta di sola
lettura me è la cartella a contenerli ad essere settata.
Oppure ovvaimente una cartella di livello ancora più superiore.

"jurupari"

Sttttttttttttrrrraaaaaaaaana la cosa  !!!!!!!
hai provato a copiare tutte gli jpg in un-altra direvtory e togliere la spunta
stesso discorso creati in c:\ un cartella diciamo c:\Prova  copiaci tutti gli jpg
e trascina la cartella stessa su questo sotto :
Set oArgs = WScript.Arguments
strFolder = oArgs(0)
Set oFs = CreateObject ("Scripting.FileSystemObject")
set oDir = oFs.GetFolder(strFolder)
o=0: d=0
ScanAllSubDirs oDir
MsgBox o & " File controllati" & vbCR & _
    "Solo lettura e' stata rimossa " & d & " volte" &vbCR & _
    "in  """ & strFolder &"""", (Sgn(d)*16)+48, "FATTO"
Sub ScanAllSubDirs (oFolder)
    For each oFile in oFolder.files
        DimReadOnly oFile
    Next
    For each oSubFolder in oFolder.subFolders
        DimReadOnly oSubFolder
        ScanAllSubDirs  oSubFolder
    Next
End sub
Sub DimReadOnly (ByRef objDat)
    o=o+1
    If objDat.Attributes MOD 2=1 then
        objDat.Attributes = objDat.Attributes-1
        d=d+1
    End If
End Sub
'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
--
Fosco

"jurupari"
prova anche a vedere come il sistema ti vede i file
copio incollo da me stesso me medesimo me stesso :
ecco qua' un coso gia' fatto per mettere su file gli attributi
di tutti i file di una specifica folder e sub (in sto caso C:\WINDOWS\TEMP)
'----------GetAttr.vbs---------
startFolder="C:\WINDOWS\TEMP"
dataFile="C:\WINDOWS\TEMP\X.TXT"
Set fso = CreateObject("Scripting.FileSystemObject")
set root=fso.getFolder(startFolder)
set oFile=fso.CreateTextFile(dataFile)
call folderlist(root)
oFile.close
sub folderlist(grp)
 for each file in grp.files
  oFile.writeLine file.path & "=" & file.attributes
 next
 for each fldr in grp.subFolders
  on error resume next
  set nf=fso.GetFolder(fldr.path)
  if err.number then
   err.clear
  else
   call folderlist(nf)
  end if
  set nf=nothing
 next
end sub
'fine
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio GetAttr.vbs)
'se ti da' errore disattiva l'antivirus
'I valori sono :
'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.
Per esempio
(tutti con il bit archivio(32) settato tranne il Txt (5))
C:\WINDOWS\TEMP\Nuovo Txt (2).txt=33  (solo lettura)
C:\WINDOWS\TEMP\Nuovo Txt (3).txt=34 (nascosto)
C:\WINDOWS\TEMP\Nuovo Txt (4).txt=35 ((solo lettura & nascosto)
C:\WINDOWS\TEMP\Nuovo Txt.txt=32  (normale)
C:\WINDOWS\TEMP\Nuovo Txt (5).txt=0  (NESSUNO)
uso :
 bit archivio 32+ valore per esempio 32+2 =34 (nascosto)
Il tutto testato su un Windows98se
--
--
Fosco

Grazie per le sollecite risposte.
Per Pablo: ho provato a compiere l'operazione sulla directory "nonna",
quella nella quale sono contenute tutte le subdirectory di foto:
nessun risultato.
Per Fosco: il sistema non fa girare gli script .vbs... pazienza, me ne
farò una ragione.
 A quanto pare, l'unica differenza è che, salvando un file .jpg, mi
tocca usare "salva con nome" piuttosto che il semplice "salva".
misteri di XP...
Grazie comunque, farò una ricerca sulla KB, anche se mi pare difficile
formulare la domanda.
Ciao
Tom
