VB2010 Browsing windows file system

November 10, 2013 1:01 pm Published by

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

Categorised in: ,

This post was written by admin

Comments are closed here.