erledigt: FileDateTime(Pfad) zeigt immer Datum von heute

[erikafuchs]

Hallo ihr Lieben,
ich habe mal wieder ein Problem. Ich möchte nur die Dateien in einem Ordner öffnen die heute geöffnet wurden. Dazu habe ich den untenstehenden Code geschrieben. Zunächst lasse ich nur das Datum mit date(FileDateTime(pfad)) anzeigen und dann den Namen der Datei. Egal welchen Ordner ich untersuche, ich bekomme immer das Datum von heute angezeigt. Könnt ihr bitte mal einen Blick auf den Code werfen und mir sagen, wo mein Denkfehler ist?

Code: Alles auswählen

sub heute
	If ( Not GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) ) Then
		GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
	End If
   
	i = 0
	j = 0
	do
		i= i + 1
		x = RIGHT(ConvertToURL(ThisComponent.URL),i)
		if left(x,1) = "/" Then
			j = j +1
		End if
	Loop While j < 1
	k=i
	
	pfad = LEFT(ConvertToURL(ThisComponent.URL), LEN(ConvertToURL(ThisComponent.URL))-i+1)
	aDateien = ReadDirectories(Pfad , TRUE , FALSE , FALSE )  'Das Verzeichnis mit den Dateien

	If uBound( aDateien ) > -1 then
		for i = lBound( aDateien) to uBound(aDateien)
			print date(FileDateTime(aDateien(i)) 		
			lPfad = ConvertFromURL(aDateien(i))
			do
				lPfad =  right(lPfad,len(lPfad)-InStr(lPfad, "\"))
			loop while InStr(lPfad, "\")>0
			print lPfad
		next i
	end if
end sub

Viele Grüße
Pit

[erikafuchs]

Ich habe es gefunden:
date(FileDateTime(aDateien(i)), extarhiert nicht das Datum aus Datum und Uhrzeit sondern liefert das aktuelle Datum - und kümmert sich nicht um den Rest!