Makros und Tools

GetDirs

Liest die Dateien eines Ordners und der Unterordner ein.

Beim Aufruf muss z als 0 übergeben werden.

Basic

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