1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub listerRepertoires_JP
Dim Chemin As String , NomObj As String
Dim oSimpleFileAccess As Object
Dim i As Integer
Dim Tableau() , ListeRep As String, nbRep As Integer
Chemin ="D:\tmp"
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
Tableau = oSimpleFileAccess.getFolderContents(ConvertToURL( Chemin ), True )
ListeRep = ""
nbRep = 0
For i = 1 To UBound(Tableau) + 1
NomObj = Tableau( i-1 )
If oSimpleFileAccess.isFolder( NomObj ) Then
ListeRep = ListeRep + ConvertFromURL( NomObj ) + Chr(13) + Chr(10)
nbRep = nbRep + 1
End If
Next i
MsgBox "nbRep: " + nbRep + Chr(13) + chr(10) + ListeRep
oSimpleFileAccess = Nothing
End Sub |
Partager