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