PC SOFT

DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

  • Connaître le nombre de fichiers de type "*.TXT" en lecture seule
  • Connaître le nombre de fichiers de type "*.DOC" en lecture seule
fListeFichier (Exemple)
Connaître le nombre de fichiers de type "*.TXT" en lecture seule
WINDEVEtats et RequêtesWindows MobileJavaCode Utilisateur (MCU)
Le code suivant permet de connaître le nombre de fichiers de type "*.TXT" en lecture seule dans un répertoire sélectionné par l'utilisateur. Le répertoire est sélectionné grâce à la fonction fRepSélecteur.
// Déclaration et initialisation des variables

// Nombre de fichiers répondant aux critères
NbFichierLS est un entier
// Nombre de fichiers de type "*.TXT"
NbFichierTXT est un entier
NbFichierTXT = 0
CritèreRecherche est une chaîne

// Sélection du répertoire dans lequel les fichiers vont être listés
CritèreRecherche = fRepSélecteur("", "Sélectionner un répertoire", ...
"Recherche des .TXT dans le répertoire sélectionné")

// Ajout du critère "\*.TXT" à la fin du nom du répertoire sélectionné
CritèreRecherche = CritèreRecherche + "\*.TXT"

// Liste des fichiers de type "*.TXT"
NbFichierTXT = fListeFichier(CritèreRecherche, "AttributFichier", &NbFichierLS)

// Affichage du nombre de fichiers répondant aux critères
Info("Il y a " + NbFichierLS + " fichiers en lecture seule sur " + ...
NbFichierTXT + " fichiers listés")
// Procédure locale appelée par fListeFichier
PROCEDURE AttributFichier(Repertoire, Nom, Change, NbFichierTXT)
// Déclaration de la variable
NbFichierLS est un entier
// Fichiers en lecture seule ?
SI Position(fAttribut(Repertoire + Nom), "R") <> 0 ALORS
  Transfert(&NbFichierLS, NbFichierTXT, 4)
  NbFichierLS++
  Transfert(NbFichierTXT, &NbFichierLS, 4)
  // Affichage du nom du fichier dans la liste "LISTE_ListeFichier"
  ListeAjoute(LISTE_ListeFichier, Repertoire + Nom)
FIN
RENVOYER Vrai
Connaître le nombre de fichiers de type "*.DOC" en lecture seule
WEBDEV - Code ServeurPHPAjax
Le code suivant permet de connaître le nombre de fichiers de type "*.DOC" en lecture seule dans un répertoire sélectionné par l'utilisateur.
// Déclaration et initialisation des variables

// Nombre de fichiers répondant aux critères
NbFichierLS est un entier
// Nombre de fichiers de type "*.DOC"
NbFichierDoc est un entier
NbFichierDoc = 0
CritèreRecherche est une chaîne

// Sélection du répertoire dans lequel les fichiers vont être listés
CritèreRecherche = "C:\MesDocuments\"

// Ajout du critère "\*.doc" à la fin du nom du répertoire sélectionné
CritèreRecherche = CritèreRecherche + "\*.doc"

// Liste des fichiers de type "*.DOC"
NbFichierDoc = fListeFichier(CritèreRecherche, "AttributFichier", &NbFichierLS)

// Affichage du nombre de fichiers répondant aux critères
Info("Il y a" + NbFichierLS + "fichiers en lecture seule sur" + ...
NbFichierDoc + "fichiers listés")

// Procédure locale appelée par fListeFichier
PROCEDURE AttributFichier(Repertoire, Nom, Change, NbFichierDoc)
// Déclaration de la variable
NbFichierLS est un entier
// Fichiers en lecture seule ?
SI Position(fAttribut(Repertoire + Nom), "R") <> 0 ALORS
Transfert(&NbFichierLS, NbFichierDoc, 4)
NbFichierLS++
Transfert(NbFichierDoc, &NbFichierLS, 4)
// Affichage du nom du fichier dans la liste "LISTE_ListeFichier"
ListeAjoute(LISTE_ListeFichier, Repertoire + Nom)
FIN
RENVOYER Vrai
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire