Aggiungo, per ciclare una directory:
F1.Delete True 'per cancellare il filecodice:Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & " " Next ShowFileList = s End Function
DeteDiff ' per la differenza tra due date