Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[VB] - ATTRIBUTI

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

[VB] - ATTRIBUTI

Messaggioda SuperRomu » sab ago 28, 2004 4:34 pm

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>
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm

Re: [VB] - ATTRIBUTI

Messaggioda Silver Black » lun gen 10, 2005 3:14 pm

SuperRomu ha scritto: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!
Sergio Pappalardo aka Silver Black
CyberInstaller - www.silvercybertech.com - http://silvercybertech-labs.com/cyberblog
Avatar utente
Silver Black
Silver Member
Silver Member
 
Messaggi: 1147
Iscritto il: gio gen 06, 2005 8:50 pm
Località: Bassano del Grappa (VI)


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising