Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

LastModified VBScript, hoe ?

None
9 antwoorden
  • 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.
  • Kijk hier eens naar, misschien heb je er iets aan.
    Kijk een op onderstaande link

    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtorivbscript.asp[VBScript]

    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
  • 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:
  • 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.
  • 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
  • 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
  • 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
  • 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
  • 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:

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.