begin process at 2010 02 09 15:32:04
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > ASUBFOLDERS() TABLEAU DES SOUS-DOSSIERS D'UN DOSSIER

ASUBFOLDERS() TABLEAU DES SOUS-DOSSIERS D'UN DOSSIER


 Information sur la source

Note :
Aucune note
Catégorie :Divers Classé sous :répertoire, lister, fichiers Niveau :Débutant Date de création :18/10/2004 Date de mise à jour :28/04/2005 20:25:21 Vu :4 728

Auteur : AbaqueInside

Ecrire un message privé
Site perso
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Suivant la convention VFP, cette fonction retourne :
- le nombre de sous-dossiers dans un dossier
- un tableau contenant le nom de chaque sous-dossier trouvé dans le premier paramètre passé par référence

Ce code illustre l'utilisation de la substitution de nom : SET DEFAULT TO (m.lcDefault)

Source

  • FUNCTION aSubFolders && Tableau des sous-dossiers d'un dossier
  • LPARAMETERS ;
  • taSubFolders,; && @ Tableau à remplir
  • tcFolderAddr && Adresse du dossier où rechercher les sous-dossiers
  • LOCAL lnResult && Nombre de sous-dossiers trouvés
  • m.lnResult = 0
  • EXTERNAL ARRAY taSubFolders && pour le gestionnaire de projet
  • * Si les paramètres requis sont valides
  • LOCAL llParm1, llParm2
  • m.llParm1 = Type("alen(m.taSubFolders)")=='N'
  • ASSERT m.llParm1 MESSAGE Program() + ": Le premier paramètre doit être un tableau"
  • m.llParm2 = Vartype(m.tcFolderAddr)=='C' AND Directory(m.tcFolderAddr)
  • ASSERT m.llParm2 MESSAGE Program() + ": Adresse de dossier invalide : " + Transform(m.tcFolderAddr)
  • IF m.llParm1 AND m.llParm2
  • * Remplir le tableau des sous-dossiers
  • LOCAL lcDefault
  • m.lcDefault = FullPath(Curdir())
  • SET DEFAULT TO (m.tcFolderAddr)
  • m.lnResult = ADir(taSubFolders, Space(0), 'D') && space(0) makes aDir() return Folders
  • SET DEFAULT TO (m.lcDefault)
  • ENDIF
  • RETURN m.lnResult
	FUNCTION aSubFolders && Tableau des sous-dossiers d'un dossier
	LPARAMETERS ;
		taSubFolders,; && @ Tableau à remplir
		tcFolderAddr && Adresse du dossier où rechercher les sous-dossiers
	LOCAL lnResult && Nombre de sous-dossiers trouvés
	m.lnResult = 0

	EXTERNAL ARRAY taSubFolders && pour le gestionnaire de projet

	* Si les paramètres requis sont valides
	LOCAL llParm1, llParm2
	m.llParm1 = Type("alen(m.taSubFolders)")=='N'
	ASSERT m.llParm1 MESSAGE Program() + ": Le premier paramètre doit être un tableau"
	m.llParm2 = Vartype(m.tcFolderAddr)=='C' AND Directory(m.tcFolderAddr)
	ASSERT m.llParm2 MESSAGE Program() + ": Adresse de dossier invalide : " + Transform(m.tcFolderAddr)
	IF m.llParm1 AND m.llParm2

		* Remplir le tableau des sous-dossiers
		LOCAL lcDefault
		m.lcDefault = FullPath(Curdir())
		SET DEFAULT TO (m.tcFolderAddr)
		m.lnResult = ADir(taSubFolders, Space(0), 'D') && space(0) makes aDir() return Folders
		SET DEFAULT TO (m.lcDefault)

	ENDIF

	RETURN m.lnResult



 Historique

28 avril 2005 20:25:21 :
Correction coquille

 Sources du même auteur

AUTOMATION DE WORD AVEC VFP
AAPPEND() AJOUTE LE CONTENU D'UN TABLEAU À UN AUTRE
FILESPROC() && APPLIQUE UNE PROCÉDURE À TOUS LES FICHIERS D'...
CEUROANSI() CHAINE DE CARACTÈRES DÉSACCENTUÉE
VISUAL FOXPRO : PRÉSENTATION GÉNÉRALE

 Sources de la même categorie

RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER par mike_vk
COULEUR HEXADECIMAL par tmcuh
Source avec Zip ITERATION par DDU de AtoutFox
CRYPTE/DECRYPTE par FredArmoni
CONTRÔLE DU NUMÉRO DE TVA (BELGE) par johnmary

 Sources en rapport avec celle ci

FILESPROC() && APPLIQUE UNE PROCÉDURE À TOUS LES FICHIERS D'... par AbaqueInside
FONCTIONS UTILES SUR LES FICHIERS ET DOSSIERS AVEC WINDOWS S... par Mike Gagnon
COMMENT ÉNUMÉRER TOUS LES FICHIERS DANS UN DOSSIER AVEC WIND... par Mike Gagnon
C83ADDRESS() VERSION COURTE (8.3) DE L'ADRESSE D'UN FICHIER/... par AbaqueInside

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

fichiers necessaires au vfpoledb ? [ par lijohann ] bonjour,j'ai une appli sous excel qui utilise le vfpoledb pour accéder à mes donées.Mon probleme est que des utilisateurs doivent lister les champs et le type d'une table foxpro [ par AliceT ] Bonjour, je cherche le moyen (via oledb) de lister les champs ansi que les caractéristiques d'une table foxpro.J'attends vos idéesbiz'Alice Vérification des fichiers en format .dbf [ par devham ] salut, je developpe en VB.net , mais cette fois je suis obligé à faire une appliquation en VFP, l'objectif de cette appliquation c'est de ve fichiers d'installation [ par info_maroc ] Bonjour1 - j'ai developpe une application sous visual foxpro 9 et je veux creer les fichiers d'installation, j'ai pas sur le menu de foxpro un moyen p creer fichiers installation [ par info_maroc ] bonjour   j'ai besoin de la procedure de generation des fichiers installation d'une application developpée par visual foxpro 9Merci Manipulation de fichier texte [ par rr_style ] Salut a tous Moi j'ai un serieux problème avec FoxPro j'ai développé une interface qui converti des données d'un logiciel vers un autre. grace à l Difference entre foxpro et visual foxpro [ par ducker88 ] >Bonjour à tous,Voila deux ans que je travaille sur foxpro (tant bien que mal...) et j'apprend aujourd'hui qu'il est possible que la base ai été mi un exe depuis un form [ par bensti ] Bonjour à tous.j'ai un formulaire composé d'un .scx et d'un sct. J'aimerai en faire un exécutable seul. C'est à dire que l'exe lancerait uniquement mo RENAME avec wildcards [ par mike_vk ] Bonjour,J'ai un petit problème avec la commande RENAME. Peut-etre que j'utilise pas bien les wildcards?Je dispose d'un dossier contenant une série de lancer la fenetre enregistrer sous [ par memphis710 ] Bonjour, Dans un formaulaire, j'utilise actuellement la fonction GETDIR pour sélectionner le répertoire de destination pour l'enregistrement d'un fich


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales