<% function GetExt(FileName) Dim p GetExt = "" p = inStr(FileName, ".") if (p > 0) then GetExt = LCase(Right(FileName, len(FileName) - p)) end function
function GetLastFile(folderspec) Dim fs, f, f1, fc, s, e Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files lastd = 0 GetLastFile = "Ingen filer" For Each f1 in fc if f1.DateLastModified > lastd then e = GetExt(f1.name) if e = "gif" or e = "jpg" then GetLastFile = f1.name end if end if Next End function
f = GetLastFile(Server.MapPath("scene")) Response.Write("<br><br>" & f) %>
GetlastFile = "mappe tom" For Each f1 in fc if instr(f1.name,".gif")>0 or instr(f1.name,".jpg")>0 then if f1.DateLastModified > lastd then GetlastFile = f1.name end if end if Next
Cpufan - det virker - næsten. jeg får sidste nye fil frem, - dog er der et lille problem. Jeg generere billedfiler ved et screencapture, der automatisk bliver placeret i omh. mappe hvor scriptet så henter den nyeste jpg fil - det virker. Filerne bliver autodøbt snapshot1 og efterfølgende får så automatisk 2 - 3 4 osv. når jeg når til snapshot9 - bliver siden ved med at vise snapshot9 og går ikke videre filerne kan være genereret indenfor f.eks 3 minutter. jeg har en metatag i toppen af min side der refresher siden hver 5. sekund og det er måske der problemet ligger at siden henter fra cachen istedet efter et stykke tid????
Hvis jeg starter ud med at snapshot10.jpg ligger i billedmappen og så fodre mappen med snapshots11 - osv. går det fint - så der sker altså noget når det når til snapshot9 og skal videre tiol snapshot10.jpg?????????
ved navngivning 01 kommer filen til at hedde 011 og ikke 02 og ved navngivning startfil med 10 kommer den næste fil til at hedde 11 :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.