Fonction privée NewestFileInFolder (strFolderPath comme corde) comme nombre entier
Faible objFSO comme FileSystemObject, objFolder comme objet, objFile comme dossier, intTemp comme nombre entier, bolFirstPass comme booléens
Placer l'objFSO = le CreateObject (« Scripting.FileSystemobject »)
Placer l'objFolder = l'objFSO.GetFolder (le strFolderPath)
les bolFirstPass = rectifient
Pour chacun objFile dans objFolder.Files
intTemp = DateDiff (« d », objFile.DateCreated, date)
Si bolFirstPass alors
NewestFileInFolder = intTemp
bolFirstPass = faux
Autrement
S'intTemp < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="">
|