Lister les documents d'un répertoire et leur taille

Sub AfficheODSetTaille
GlobalScope.BasicLibraries.loadLibrary ("zBasic")	

	sChemin = "c:\temp\"
	sFeuille = "Test"
	oListe = zBasic.ListeFichiers(sChemin, "ods")
	oListe = zTable.SupprimeColonne(oListe,3)
	oListe = zTable.SupprimeColonne(oListe,2)
	zCellule.Ecrit(sFeuille, "A1", "C", "Nom du document")
	zCellule.Ecrit(sFeuille, "B1", "C", "Taille")
	zTable.Ecrit(sFeuille, "A2", oListe)
End sub