Avatar billede nythjem Nybegynder
30. september 2004 - 13:14 Der er 4 kommentarer og
1 løsning

Nyere filer via FSO?

Hej Alle!

Jeg har tre filer. Jeg har ét problem :)

I fil 1 lister jeg alle filer i en mappe på en ekstern server, og får eksempelvis følgende resultat:

side1.asp, side2.asp, side3.asp, side4.asp,


I fil 2 finder jeg de filer jeg har i en bestemt mappe, og sammenligner dem i fil 1.

I understående script finder jeg så ud af om filerne eksisterer.

***
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = server.mappath("../" & arrList(t) & "")
If (fso.FileExists(filespec)) Then
  msg = filespec & " exists."
Else
  NewFiles = NewFiles & arrList(t) & " + "
End If
***

Hvis filen ikke eksisterer tilføjes den en liste.

Mit problem er nu, at jeg vil gøre det samme med nyere filer. Med andre ord er det ikke nok, hvis filen ikke eksisterer. Hvis der findes en nyere fil skal denne også sættes ind i listen.

Er der nogle der ved, hvordan jeg gør?
Avatar billede ricky Nybegynder
30. september 2004 - 13:29 #1
Ikke noget jeg har prøvet at lege med - men jeg mener at der er en FileSystemDate
Avatar billede ricky Nybegynder
30. september 2004 - 13:31 #2
..kommando :) d.v.s. filedate=FileSystemDate(filespec) burde virke ?
Avatar billede nythjem Nybegynder
30. september 2004 - 13:40 #3
Hej Ricky!

Umiddelbart er jeg ikke verdens mester til fso :) MEN der findes en kommand, der hedder DateLastModified. Jeg ved desværre bare ikke, hvordan jeg får indarbejdet den i forhold til if´en..

Jeg har i min listning leget med, at kalde filerne, og lave en DateLastModified bagefter, eksempelvis side1.asp/01-01-2004 12:00:00, men det vil FSO jo ikke godtage som en fil.. Forståeligt nok.

Jeg ville egentlig bare have hjælp til if sætningen.

Noget med,

Hvis filen er nyere end foregånde, så tilføj til liste..

:) :)
Avatar billede ricky Nybegynder
30. september 2004 - 14:10 #4
ok.
det skal der nok leges lidt med.. men det må være noget i retning af..

If (fso.FileExists(filespec)) Then
  msg = filespec & " exists."
Else
  if (fso.DateLastModified(filespec)) > (fso.DateLastModified(*eksisterendefil*)) then
    NewFiles = NewFiles & arrList(t) & " + "
  else
    msg = msg & " and date is not newer."
  end if
end if

jeg kan desværre ikke hjælpe dig mere lige nu da jeg som sagt ikke har prøvet det i praksis.. og ikke har tid til at lege med det lige nu.

men skriv lige om du finder ud af det eller om jeg skal prøve at få det til at virke.

det her kunne der faktisk komme en meget smart lille funktion ud af.. de fleste FTP programmer (jeg har set) kan ikke håndtere compare af filer ordenligt..
Avatar billede nythjem Nybegynder
21. oktober 2004 - 12:44 #5
Lukker, men tak for hjælpen. Fandt desværre ikke rigtig nogen løsning, lagde det lidt fra mig, men arbejder nu videre.. Dog med en anden lidt mere modificeret tankegang :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester