Private Funktion NewestFileInFolder (strFolderPath als Schnur) als ganze Zahl
Schwaches objFSO als FileSystemObject, objFolder als Gegenstand, objFile als Akte, intTemp als ganze Zahl, bolFirstPass, wie Boolesch
objFSO = CreateObject („Scripting.FileSystemobject“) einstellen
objFolder = objFSO.GetFolder (strFolderPath) einstellen
bolFirstPass = richten aus
Für jedes objFile in objFolder.Files
intTemp = DateDiff („d“, objFile.DateCreated, Datum)
Wenn bolFirstPass dann
NewestFileInFolder = intTemp
bolFirstPass = falsch
Sonst
Wenn intTemp < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="">
|