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

Zurück Vor |
| 10.3.35 GetDirs
Liest die Dateien eines Ordners und der Unterordner ein. Beim Aufruf muß z als 0 übergeben werden. 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