Kjøre et vbs-script med filnavn som "variabel"

[*Tronaldo*]

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*

[aadnk]

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 paramentre

If 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

[*Tronaldo*]

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*