[VBS] Datum & tijd van file checken tegen vaste waarde.

[Nowhereman]

Zoals de titel al stelt, zit ik met het volgende probleem.
Ik moet na het draaien van een installatie script een check doen of de geïnstalleerde files voldoen aan een bepaalde datum & tijd. De datum & tijd zijn vaste waarden, echter zijn deze verschillend per file. Ik heb getracht dit middels StrComp op te lossen. Dit lukt, echter wil dit maar voor 1 file. Ik krijg het niet voor elkaar om meerdere files tegen verschillende waarden te laten checken.
Hieronder paste ik de code zoals ik deze nu heb.
Ik hoop dat iemand me een oplossing kan bieden, anders heb ik geen andere keuze dan het complete script voor iedere file apart te laten draaien... wat ik toch een beetje teveel van het goede vind

code:

function FileCreated(Fname) 

FileCreated = "" 

Set fs = CreateObject("Scripting.FileSystemObject") 

if fs.FileExists(Fname) = True then 
Set f = fs.GetFile(Fname) 


MyDatum = ("31-3-2004 13:35:09")
if StrComp(MyDatum,f.DateCreated) <>0 then 
FileCreated =  "FOUT"
else
FileCreated =  "GOED"
end if
end if 
Set f = Nothing 
Set fs = Nothing 
end function 


function FileLastAccessed(Fname) 

FileLastAccessed = "" 

Set fs = CreateObject("Scripting.FileSystemObject") 

if fs.FileExists(Fname) = True then 
Set f = fs.GetFile(Fname) 
FileLastAccessed = f.DateLastAccessed 
end if 
Set f = Nothing 
Set fs = Nothing 
end function 


function FileLastModified(Fname) 

FileLastModified = "" 

Set fs = CreateObject("Scripting.FileSystemObject") 

if fs.FileExists(Fname) = True then 
Set f = fs.GetFile(Fname)
FileLastModified = f.DateLastModified
end if 
Set f = Nothing 
Set fs = Nothing 
end function 


fa=FileCreated("C:\install\Test1.txt") 
fb=FileCreated("C:\install\Test2.txt") 
fc=FileCreated("C:\install\Test3txt") 
fd=FileCreated("C:\install\Test4.txt") 
fe=FileCreated("C:\install\Test5.txt") 
fg=FileCreated("C:\install\Test6.txt") 
ff=FileCreated("C:\install\Test7.txt") 




'fla=FileLastAccessed("") 
'flm=FileLastModified("") 

msgbox "Resultaat cotrole op bestanden:" & VbCrLf & VbCrLf & _
        "Test1"&chr(9)&              ": " & (fa) & VbCrLf & _
        "Test2"            &chr(9)&chr(9)&chr(9)&": " & (fb) & VbCrLf & _ 
        "Test3"       &chr(9)&chr(9)&       ": " & (fc) & VbCrLf & _
        "Test4"        &chr(9)&chr(9)&       ": " & (fd) & VbCrLf & _
        "Test5"          &chr(9)&chr(9)&chr(9)&": " & (fe) & VbCrLf & _
        "Test6"          &chr(9)&chr(9)&chr(9)&": " & (ff) & VbCrLf & _
        "Test7"       &chr(9)&chr(9)&       ": " & (fg) & VbCrLf _
        ,VbInformation,"Installatie"

[ Voor 12% gewijzigd door Nowhereman op 03-05-2004 12:19 ]

[faabman]

een 2-dimensionale array aanmaken waarin de bestandsnaam en de datum/tijd staan, die loop je vervolgens voor elk bestand door

ASP:

For I = 0 To Ubound(arrBlaat)
  If arrBlaat(0, I) = objFile.Name Then
    If objFile.DateLastModified = arrBlaat(1, I) Then 
       blnReturn = True
    Else
       blnReturn = False
     End If

  End If
Next

[Nowhereman]

Het zal in VBS moeten gezien het script lokaal op een machine draait, is er een manier om dit in VBS te verwezelijken?

[Verwijderd]

Nowhereman schreef op 03 mei 2004 @ 13:04:
Het zal in VBS moeten gezien het script lokaal op een machine draait, is er een manier om dit in VBS te verwezelijken?

ehh. de code die je in het bericht hierboven aantreft *is* VBS, alleen heeft faabman er ASP boven gezet ivm het renderen van de code in dit topic

[Nowhereman]

*wrijft slaap uit ogen*
Ubound(arrBlaat) kende ik niet en aangezien ik ASP ook niet ken ging ik er iets te vlot van uit dat het ASP zou zijn.