Privé Functie NewestFileInFolder (strFolderPath als Koord) als Geheel
Schemerige objFSO als FileSystemObject, objFolder als Voorwerp, objFile als Dossier, intTemp als Geheel, bolFirstPass zoals Van Boole
Reeks objFSO = CreateObject („Scripting.FileSystemobject“)
Reeks objFolder = objFSO.GetFolder (strFolderPath)
bolFirstPass = Waar
Voor elk objFile in objFolder.Files
intTemp = DateDiff („D“, objFile.DateCreated, Datum)
Als bolFirstPass toen
NewestFileInFolder = intTemp
bolFirstPass = Vals
Anders
Als intTemp < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="">
|