Función privada NewestFileInFolder (strFolderPath como secuencia) como número entero
objFSO dévil como FileSystemObject, objFolder como objeto, objFile como archivo, intTemp como número entero, bolFirstPass como boleanos
Fijar el objFSO = CreateObject (“Scripting.FileSystemobject”)
Fijar el objFolder = objFSO.GetFolder (el strFolderPath)
los bolFirstPass = verdad
Para cada uno objFile en objFolder.Files
intTemp = DateDiff (“d”, objFile.DateCreated, fecha)
Si bolFirstPass entonces
NewestFileInFolder = intTemp
bolFirstPass = falso
Si intTemp < NewestFileInFolder="" Then="" NewestFileInFolder="intTemp" End="" If="" Next="" Set="" objFile="Nothing" Set="" objFolder="Nothing" Set="" objFSO="Nothing" End="" Function="">
|