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