Procedure lRecup_Doc(pChemin,ptbl)

//pChemin = "\\SRV-HOST-SRV\Partage\DOC\"
//ptbl = tbl_Doc

UnRépertoire, ResListeRépertoire sont des chaînes
RépertoireAlister est une chaîne
RépertoireAlister = pChemin


SI PAS fListeRépertoire(RépertoireAlister,frNonRécursif) ALORS
Erreur(ErreurInfo())
SINON
ResListeRépertoire = fListeRépertoire(RépertoireAlister,frNonRécursif)
FIN

// Pour chaque répertoire trouvé
POUR TOUTE chaîne UnRépertoire de ResListeRépertoire SEPAREE PAR RC
// Ajout du répertoire dans la table ptbl
TableAjoute(ptbl, UnRépertoire)
FIN

Procedure RafraichitListeSMB()


AUT_DOMAINE est une chaîne = "SRV-HOST-SRV"
AUT_UTILISATEUR est une chaîne = "Moi"
AUT_MOTDEPASSE est une chaîne = "MPD"

//Ici mon ancien lien:
//sRep est une chaine = "smb://10.10.10.254/Donnees/Commut@tion/"
//Et la le new :
sRep est une chaîne = "\\SRV-HOST-SRV\Partage\DOC"

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////
// On liste les fichiers et dossiers
// On commence par les dossiers
sRépertoires = SMBListeRépertoire(sRep,AUT_DOMAINE,AUT_UTILISATEUR,AUT_MOTDEPASSE)
SI SMBErreurInfo() <> "" ALORS
Erreur("Impossible de lister le répertoire.",SMBErreurInfo())

// Affichage

RENVOYER Faux
FIN