erledigt: FileDateTime(Pfad) zeigt immer Datum von heute
Verfasst: Di, 28.01.2014 17:07
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?
Viele Grüße
Pit
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 subPit