VB6 - Ottenere attributo come valore

[Pinco Pallino 2]

Salve!
Mi serve sapere come posso ottenere un valore da un attributo di un file per usarlo nelle condizioni!
Una cosa del genere:

If mioFile è SolaLettura then
checkbox1.value=1
endif

come posso usare la condizione ke il file sia in sola lettura? ke codice ci vuole?

ho provato con:

If GetAttr(miofile) = vbReadOnly Then
attLettura.Value = 1
End If

ma nn va!
CIAO!

[Brainjar]

Puoi crearti una piccola funzione SolaLettura(...)
alla quale passi il nome del file da testare. Ti ritorna
True se è read-only.

 Public Function SolaLettura(FileName As String) As Boolean

    '---------------------------------------------------------------- 
    'Normal     0       File normale. 
    'ReadOnly   1       File di sola lettura. 
    'Hidden     2       File nascosto. 
    'System     4       File di sistema. 
    'Volume     8       Etichetta del volume dell'unità disco
    'Directory  16      Cartella o directory. 
    'Archive    32      Il file è stato modificato dall'ultimo backup 
    'Alias      64      Collegamento o scelta rapida.
    'Compressed 128     File compresso. 
    '---------------------------------------------------------------- 

    ' Per cui se il valore di f.Attributes è dispari, 
    ' vuol dire che è read-only
 
    Dim fso As New FileSystemObject
    Dim f As File
    SolaLettura = False
    Set f = fso.GetFile(FileName)
    If (f.Attributes Mod 2) > 0 Then SolaLettura = True

 End Function

Ciao.

[Pinco Pallino 2]

graziE!

[cassano]

però la prima dovrebbe funzionare posto un esempio

Dim MyAttr
' Presupposto: per il file FILEPROV è stato impostato
' l'attributo Nascosto.
MyAttr = GetAttr("FILEPROV") ' Restituisce 2.

' Restituisce un valore diverso da zero se l'attributo
' Nascosto è impostato per FILEPROV.
Debug.Print MyAttr And vbHidden

' Presupposto: per il file FILEPROV sono stati
' impostati gli attributi Nascosto e Sola lettura.
MyAttr = GetAttr("FILEPROV") ' Restituisce 3.

' Restituisce un valore diverso da zero se l'attributo
' Nascosto è impostato per FILEPROV.
Debug.Print MyAttr And (vbHidden + vbReadOnly)

' Presupposto: MIADIR è una directory o una cartella.
MyAttr = GetAttr("MIADIR") ' Restituisce 16.