vis filer nyere end i dag eller igår

Man er stadig nød til at loope igennem alle filerne, men man kan tjekke for om filnanvet indeholder datoen for igår eller idag og kun vise dem;:


<%
idag  = year(date) & Right("0" & Month(date)) & Right("0" & day(Date))
dato = DateAdd("d",-1,date)
igaar = year(dato) & Right("0" & Month(dato)) & Right("0" & day(Dato))

sti="/files"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath(sti))
Set files = objFolder.Files
For Each file In files
  if inStr(1,file.name,idag)>0 OR inStr(1,file.name,igaar)>0 then
    Response.Write file.Name & "<br>"
  end if
next
%>

eagleeye....? svar lige her..!

Den giver mig en fejl,

Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'Right'
/telegramtest.asp, line 2

Linie to = idag  = year(date) & Right("0" & Month(date)) & Right("0" & day(Date))

ups der magler ,2 i de to linjer:

dag  = year(date) & Right("0" & Month(date)) & Right("0" & day(Date),2)
dato = DateAdd("d",-1,date)
igaar = year(dato) & Right("0" & Month(dato)) & Right("0" & day(Dato),2)

Takker,
Er der en anden der skal bruges samme funktion, så skal linien
Set objFolder = fso.GetFolder(Server.MapPath(sti))
rettes til
Set objFolder = fso.GetFolder(sti)