• GetAttr()
    • estrae l'attributo del'elemento passato, potrebbe esesre si un file che directoy

    GetAttr("path\file/directoy")

    attributi possibili:
    • vbNormal 0 Normal
    • vbReadOnly 1 Read-only
    • vbHidden 2 Hidden
    • vbSystem 4 System file. Not available on the Macintosh
    • vbDirectory 16 Directory or folder
    • vbArchive 32 File has changed since last backup. Not available on the Macintosh
    • vbAlias 64 Specified file name is an alias. Available only on the Macintosh

    esempio: se é una directory
    If GetAttr("path\" & MyDir) = vbDirectory Then ...





  • funzione
    • per estrarre attrubuti da un file specifico si crea una funzione che restituisce l'attributo che si cerca

    sintassi
    Function TrovaData(filepath)

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.GetFile(filepath)

    TrovaData = file.attributo

    End Function


    attributo

    • DateCreated data creazione
    • DateLastAccessed data ultimo accesso
    • DateLastModified data modifica
    • Name nome file
    • Drive nome del drive



    esempio: visualizzo la data del file Testo.txt
    Sub VediData()

    Dim pathfile
    pathfile = "C:\Test\Testo.txt"

    MsgBox(TrovaData(pathfile))

    End Sub


    Function TrovaData(filepath)

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.GetFile(filepath)

    TrovaData = file.DateCreated

    End Function