Funzione riservata NewestFileInFolder (strFolderPath come stringa) come numero intero
objFSO fioco come FileSystemObject, objFolder come oggetto, objFile come lima, intTemp come numero intero, bolFirstPass come booleani
Regolare il objFSO = CreateObject (“Scripting.FileSystemobject„)
Regolare il objFolder = objFSO.GetFolder (strFolderPath)
i bolFirstPass = allineano
Per ciascuno objFile in objFolder.Files
intTemp = DateDiff (“d„, objFile.DateCreated, data)
Se bolFirstPass allora
NewestFileInFolder = intTemp
bolFirstPass = falso
Altrimenti
Se intTemp < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="">
|