*Tronaldo* Skrevet 20. oktober 2006 Rapporter Del Skrevet 20. oktober 2006 Hei! Holder på å lage en liten snutt som skal sjekke filens sist endret attributt. Jeg har nå filnavnet lagt i koden, men ønsker heller at jeg kan kjøre scriptet ved å sende med filnavn på den aktuelle filen som en variabel. Eks: test.vbs c:\temp\fil.txt Her er koden: Set oFSO=CreateObject("Scripting.FileSystemObject") Set oFile=oFSO.GetFile("c:\temp\fil.txt") dMod=oFile.DateLastModified Set oFSO=Nothing Set oFile=Nothing msgbox(dMod) na=(now-(1/24)) msgbox(na) if dMod < na then msgbox("Filen er gammel") else msgbox("Filen er ny") Når det kommer til msgboxene skal ikke disse være med - de er der kun for å sjekke at tallene stemmer i testefasen. Jeg ønsker at scriptet sender tilbake en verdi (eller lignende) dersom filen er gamlere enn en time, og en annen dersom den er nyere enn en time. Hjelp mottas med takk! *Tronaldo* Lenke til kommentar
aadnk Skrevet 20. oktober 2006 Rapporter Del Skrevet 20. oktober 2006 Du kan bruke kolleksjonsobjektet Wscript.Arguments for å få til nøyaktig dette. Slik blir i så fall koden din: ' Vær sikker på at vi har nok paramentreIf Wscript.Arguments.Count > 0 Then Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.GetFile(Wscript.Arguments(0)) dMod = oFile.DateLastModified Set oFSO = Nothing Set oFile = Nothing MsgBox dMod na = (Now - (1 / 24)) MsgBox na If dMod < na Then MsgBox "Filen er gammel" Else MsgBox "Filen er ny" End If End If Lenke til kommentar
*Tronaldo* Skrevet 20. oktober 2006 Forfatter Rapporter Del Skrevet 20. oktober 2006 Takker, fant det selv også i en gammel vbs-fil jeg laga for lenge siden Tror jeg har løst det andre problemet også... Vi får se. *Tronaldo* Lenke til kommentar
Anbefalte innlegg
Opprett en konto eller logg inn for å kommentere
Du må være et medlem for å kunne skrive en kommentar
Opprett konto
Det er enkelt å melde seg inn for å starte en ny konto!
Start en kontoLogg inn
Har du allerede en konto? Logg inn her.
Logg inn nå