| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 2.3.27 Wie kann man die Dateien in einem Ordner und den Unterverzeichnissen auslesen?
Mit den Dir() geht es nicht! Diese Funktion liest nur die Dateien und Ordner in dem ausgewählten Ordner ein, nicht die Inhalte der Unterordner. Ich habe eine Funktion erstellt die alle Unterordner über eine Rekursion ausliest. Der Aufruf erfolgt mit Dim Liste(10000) as string erg=getDirs(liste(),0,"C:\") Als Ergebnis stehen alle Dateien und Ordner in liste() und der Rückgabewert entspricht der Anzahl der Einträge. function getdirs( liste(),z, folder) as integer sFolderUrl = ConvertToUrl( Folder ) oSimpleFileAccess = createUnoService( "com.sun.star.ucb.SimpleFileAccess" ) aFolders = oSimpleFileAccess.getFolderContents( sFolderUrl,true ) For i = LBound( aFolders ) To UBound( aFolders ) sFile = aFolders( i ) If oSimpleFileAccess.isFolder( sFile ) Then getdirs( liste(),z, sFile) Else liste(z)=sfile z=z+1 end if next i getdirs=z end function |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009