anoniem Geplaatst: 17 mei 2004 Delen Geplaatst: 17 mei 2004 Hopelijk ben ik hier goed voor VBScript vraag : Hoe kan ik LastModified gegevens van gedownloade pagina's gebruiken met VBScript ? :roll: Met JavaScript kun je in de adresregel wel deze variabele uitlezen (javascript:alert(document.lastModified)), maar ik wil graag VBScript gebruiken. Quote Link naar reactie
anoniem Geplaatst: 18 mei 2004 Auteur Delen Geplaatst: 18 mei 2004 Kijk hier eens naar, misschien heb je er iets aan. Kijk een op onderstaande link [url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtorivbscript.asp[VBScript][/url] Function ShowFileAccessInfo(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filespec) s = UCase(filespec) & "<BR>" s = s & "Created: " & f.DateCreated & "<BR>" s = s & "Last Accessed: " & f.DateLastAccessed & "<BR>" s = s & "Last Modified: " & f.DateLastModified ShowFileAccessInfo = s End Function Jan Willem Quote Link naar reactie
anoniem Geplaatst: 18 mei 2004 Auteur Delen Geplaatst: 18 mei 2004 Nu, daar kan ik weer even mee vooruit. Ik dacht dat ik van musoft al zowat alles gedownload had wat betreft VBScript. Nee dus. Shepherd, bedankt ! :wink: Quote Link naar reactie
anoniem Geplaatst: 19 mei 2004 Auteur Delen Geplaatst: 19 mei 2004 Het stukje code werkt prima als ik het toepas op een opgeslagen webpagina. Maar wil ik van een gedownloade pagina (dus nog niet opgeslagen) de lastmodified datum bekijken, dan foutmelding : "kan het bestand niet vinden." Hoe los ik dit op ? GetObject i.p.v. GetFile lijkt niet de oplossing te zijn. PS : wat moet <BR> doen, het blijft gewoon in de string staan. Quote Link naar reactie
anoniem Geplaatst: 20 mei 2004 Auteur Delen Geplaatst: 20 mei 2004 Ik begrijp je niet helemaal. 1) een gedownload bestand, maar nog niet opgeslagen ? Een gedownload bestand is altijd opgeslagen nl in de cache van je browser. Indien de melding komt bestand niet gevonden, betekend het dat het aangegeven gestand niet in de directory staat welke jij aanwijst. Wat die <BR> doet weet ik niet, gewoon verwijderen uit je code dacht ik zo als je het niet gebruikt. Jan Willem Quote Link naar reactie
anoniem Geplaatst: 21 mei 2004 Auteur Delen Geplaatst: 21 mei 2004 Shepherd, OK. Ik bedoel : met de Internet Explorer bekijk ik pagina's die vers gedownload zijn (en dus in cache staan, ergens) en ik bekijk pagina's die ik al ergens lokaal bewust heb opgeslagen via Bestand, Opslaan als.... In het 1ste geval begint Adres met http://...., in het 2de geval met bijv. C:\.... Voor beide situaties wil ik het zelfde VBScript kunnen draaien om ouderdom van een verse dan wel al opgeslagen pagina te kunnen vaststellen. Dus jouw voorstel werkte niet bij de cache-opslag. Weet je hoe dit wel kan ? Bedankt voor je aandacht. :D Quote Link naar reactie
anoniem Geplaatst: 23 mei 2004 Auteur Delen Geplaatst: 23 mei 2004 Didorno. Ik heb er even naar gegekeken, maar de bestanden in je cache zijn moeilijk eenduidig te bereiken, omdat ze weer in willekeurige submappen worden gezet. Het enige wat ik kan bedenken is ervoor te zorgen dat een pagina wordt opgeslagen in een bepaalde map en dan de date te bekijken met je algemene opslagmap. Jan Willem Quote Link naar reactie
anoniem Geplaatst: 24 mei 2004 Auteur Delen Geplaatst: 24 mei 2004 Shepherd, Als ik kijk naar menu Extra, Internet Opties, Algemeen, Instellingen, Map met tijdelijke Internet-Bestanden, en ik kies Bestanden weergeven, dan zie ik daar van alles staan : cookies, webadressen etc. Daar kan mijn script mogelijk de recent gedownloade pagina vinden. Dit gaan we proberen. Ik laat het resultaat weten. Bedankt !!! :D Quote Link naar reactie
anoniem Geplaatst: 29 mei 2004 Auteur Delen Geplaatst: 29 mei 2004 Gelukt ! :D Uiteindelijk iets gevonden bij : System Administration Scripting Guide onder de titel : Retrieve Extended File Properties. (Microsoft) [code:1:9be6144e47]Dim arrHeaders(34) Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace("C:\Scripts") For i = 0 to 33 arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i) Next For Each strFileName in objFolder.Items For i = 0 to 33 Wscript.echo i & vbtab & arrHeaders(i) _ & ": " & objFolder.GetDetailsOf(strFileName, i) Next Next [/code:1:9be6144e47] Als folder geef ik dan de map met tijdelijke Internet bestanden op. Met een extra knop in IE krijg ik perfect de ouderdom van pagina te zien, zowel van een pas gedownloade als van een eerder opgeslagen pagina. Perfect Shepherd, jij zette me op het spoor ! Erg bedankt. :wink: Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen