OpenOffice.info

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!

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

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]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[/code]
Viele Grüße
Pit