VB2010 Browsing windows file system

2013-11-10

Un metodo che permette il stampare l’elenco di tutti i file sul file system windows,
con la data di creazione, ultima scrittura, ultimo accesso.

Attenzione che il parametro SearchOption.AllDirectories permette la ricerca dei file anche nella sotto cartelle,
quindi l’operazione perima della stampa dei dati può impiegare anche diverse ore.

Function GetFileNameDirecory(p_direcory As String)

        Dim directory As DirectoryInfo = New DirectoryInfo(p_direcory)
        Application.DoEvents()
        'Il seguende codice permette la stampa di tutti i file nella direcory e relative SUBDIRECORY, questo per l'opzione impostata "SearchOption.AllDirectories"
        Dim FileList As FileInfo() = directory.GetFiles("*.*", SearchOption.AllDirectories)
        Dim f As FileInfo
        For Each f In FileList
            MsgBox(f.CreationTime & ";" & f.LastWriteTime & ";" & f.LastAccessTime & ";" & f.FullName)
        Next

        Return 0
End Function