Lister les différents chemins du document

Renvoyer tous les chemins possibles pour le document courant

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	'indiquons dans une liste tous les paramètres
	aParams = array("DocAvecRep", _
			"DocSansRep", _
			"DocSansExt", _
			"ExtSansDoc", _
			"RepSansDoc", _
			"RepDocParent")
	for each sParam in aParams				
		sChemin = sChemin & zBasic.Chemin(sParam) & chr(10)
	next
	msgbox sChemin,,"Résultat"
End Sub