[VB] - ATTRIBUTI

[SuperRomu]

Ciao ragazzie

devo dare un attributo di file di sistema d un file e volevo sapere se con Visual Basic era possibile.. e magari anche come...

<u>grazie</u>

[Silver Black]

devo dare un attributo di file di sistema d un file e volevo sapere se con Visual Basic era possibile.. e magari anche come...

Certo, con SetAttr.
Eccoti una funzione che ho fatto:

Codice: Seleziona tutto

Public Function MySetAttrib(ByVal strFileName As String, strNewAttrib As String) As Boolean
'----------------------------------------------------------------------------------------------
' Aggiunge l'attributo passato al file
'----------------------------------------------------------------------------------------------
'Aggiunge il valore relativo all'attributo da impostare agli attributi già posseduti dal file.
'Torna TRUE se l'operazione ha avuto successo.
'----------------------------------------------------------------------------------------------


    Dim intAttribs As Integer, intNewAttrib As Integer
   
On Error GoTo Errori
    'Converte l'ID dell'attributo da impostare nella costante numerica relativa:
    Select Case strNewAttrib
        Case "H"
            intNewAttrib = vbHidden
        Case "S"
            intNewAttrib = vbSystem
        Case "R"
            intNewAttrib = vbReadOnly
        Case "A"
            intNewAttrib = vbArchive
        Case Else
            intNewAttrib = vbNormal
    End Select
   
    'Trova il valore  che corrisponde a tutti gli attributi attualmente posseduti dal file:
    intAttribs = intNewAttrib
    If intNewAttrib <> vbNormal Then
        If (GetAttr(strFileName) And vbHidden) <> 0 Then intAttribs = intAttribs + (GetAttr(strFileName) And vbHidden)
        If (GetAttr(strFileName) And vbSystem) <> 0 Then intAttribs = intAttribs + (GetAttr(strFileName) And vbSystem)
        If (GetAttr(strFileName) And vbReadOnly) <> 0 Then intAttribs = intAttribs + (GetAttr(strFileName) And vbReadOnly)
        If (GetAttr(strFileName) And vbArchive) <> 0 Then intAttribs = intAttribs + (GetAttr(strFileName) And vbArchive)
    End If
   
    'Aggiunge il nuovo attributo al file:
    SetAttr strFileName, intAttribs
   
    'Controllo risultato:
    If (GetAttr(strFileName) And intNewAttrib) <> 0 Then CyberSetAttrib = True
Exit Function

Errori:
    MySetAttrib = False
    MsgErrorHandler "durante la procedura di settaggio del nuovo attributo", Err.Description, , , "exclamation"
   
End Function


Puoi passarle gli attributi utilizzando i caratteri H, S, R, A tenendo presente la seguente legenda:
H = hidden (nascosto)
S = system (di sistema)
R = read only (sola lettura)
A = archive (archivio

Es.:

Codice: Seleziona tutto

Dim AttrID As String * 1
AttrID = "R"
If MySetAttrib("<nome file>", AttrID) Then MsgBox("Attributo impostato correttamente al file " & "<nome file>", vbInformation)


Ciao!