FileSystemObject i kort datoformat?

Hmm du er nødt til lige at udskrive hvordan det ser ud nu...

//>Rune

rune > koden ovenfor giver dette:
Updated:
26. september 2002 12:04:21

Jamen hvad udskriver: f.DateLastModified ?

For så er det lettere at ha' med at gøre ;o)

//>Rune

hvordan finder jeg ud af det ?¿? hmm... er ikke lige en haj på det her område... :-|

Skriver Response.Write()

<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("databasen/data.mdb"))

Session.LCID = 1030
Response.Write(f.DateLastModified & "<p>")
Response.Write("Updated:<br>" & FormatDateTime(f.DateLastModified, vbLongDate) & " " & FormatDateTime(f.DateLastModified, vbLongTime))

set f=nothing
set fs=nothing
%>


og så er det den øverste værdi ;o)

//>Rune

f.DateLastModified skriver 25-09-02 16:03:08
:-) ... ?

ok *G*

2 sek.

//>Rune

Here you go:

lngDate = f.DateLastModified
    arrMonth = Array("Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Okt","Nov","Dec")
        lngCDate = CDate(lngDate)

    lngMonth    = Month(lngCDate)-1
    lngDay        = Day(lngCDate)
    lngYear        = Year(lngCDate)-23
   
    Response.Write(lngDay & ". " & arrMonth(lngMonth) & " " & lngYear)

//>Rune

Jeg får en fejlmelding, forid den mangler stien til databasen...?¿?

LoL det har jeg ikke noget at gøre med det vi sidder og laver nu :-D

//>Rune

Nej hov,, undskyld! her:

<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("databasen/data.mdb"))

Session.LCID = 1030

lngDate = f.DateLastModified
    arrMonth = Array("Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Okt","Nov","Dec")
        lngCDate = CDate(lngDate)

    lngMonth    = Month(lngCDate)-1
    lngDay        = Day(lngCDate)
    lngYear        = Year(lngCDate)-23
   
  Response.Write(lngDay & ". " & arrMonth(lngMonth) & " " & lngYear & "<p>")
Response.Write("Updated:<br>" & FormatDateTime(f.DateLastModified, vbLongDate) & " " & FormatDateTime(f.DateLastModified, vbLongTime))

set f=nothing
set fs=nothing
%>

//>Rune

men hvad med hmm...
<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("databasen/data.mdb"))

fra mit første script? kan det sættes ind i din løsning?

:D tester det lige

lol :-D

//>Rune

25. Sep 1979!!!!

ha ha ha
lngMonth    = Month(lngCDate)-1
    lngDay        = Day(lngCDate)
    lngYear        = Year(lngCDate)-23

:) tak for hjælpen!!!

Anytime ;-)
Thx 4 Poinz

//>Rune