PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → [WD9] Vérifier le contenu d'un répertoire
[WD9] Vérifier le contenu d'un répertoire
Débuté par Pampi, 04 nov. 2005 16:27 - 5 réponses
#1
Posté le 04 novembre 2005 - 16:27
Bonjour,

Comment vérifier qu'un répertoire contient un fichier (dont on ne connait pas le nom exact ance) et comment récupérer le nom de ce fichier ?

Application : à l'ouverture d'une fenêtre, je dois aller vérifier dans un répertoire (dont je connais le nom) l'existence d'un fichier (une vidéo en l'occurence dont je connais le nom mais pas l'extension). Si ce fichier existe, je dois l'afficher ou plutôt la lancer puisqu'l s'agit d'une vidéo (ça je sais faire ;o)).

Merci par avance pour votre aide.

Cordialement.

Pampi
#2
Posté le 04 novembre 2005 - 16:56
salut

ResListeFichier = fListeFichier ("C:\MesDocuments\*.*", "AttributFichier")

avec ResListeFichier le nombre de fichier

bye tonton polak
#3
Posté le 04 novembre 2005 - 17:12
Merci pour ta réponse rapide. Ca correspond bien à ma recherche d'existence ou non de fichier dans le répertoire (j'avais trouvé l'aide, mais à quoi correspond la procédure "AttributFichier" ? Quel code contient-elle ?).

Comment récupérer le nom du fichier trouvé s'il y en a un ?

Merci encore.

Pampi.
#4
Posté le 04 novembre 2005 - 19:51
fRep devrait faire ton bonheur.

Ca retourne le nom du premier fichier correspondant au chemin spécifié

--

Christian Gstalder


"Pampi" <Pampi@wanadoo.fr> a écrit dans le message de
news:436b77bc$1@news.pcsoft.fr...

Bonjour,

Comment vérifier qu'un répertoire contient un fichier (dont on ne connait

pas le nom exact ance) et comment récupérer le nom de ce fichier ?

Application : à l'ouverture d'une fenêtre, je dois aller vérifier dans un

répertoire (dont je connais le nom) l'existence d'un fichier (une vidéo en
l'occurence dont je connais le nom mais pas l'extension). Si ce fichier
existe, je dois l'afficher ou plutôt la lancer puisqu'l s'agit d'une vidéo
(ça je sais faire ;o)).

Merci par avance pour votre aide.

Cordialement.

Pampi


#5
Posté le 05 novembre 2005 - 12:55
Salut !

MonRepertoireRecherche est une chaine=... //Repertoire connu dans lequel tu recherches ton fichier

//Liste des fichier du repertoire
NbFichier est un entier=FlisteFichier(MonRepertoireRecherche+"\*.*","ExecuteVideo")

//Procedure Globale ExecuteVideo


PROCEDURE ExecuteVideo(LeChemin,LeNomFichier,Change,PointeurProc)

NomFichierVideo est une chaine=...//Nom du fichier vidéo connu sans extension
ExtensionFichier est une chaine=Droite(LeNomFichier,4)//Recuperation de l'extension
LeFichierSansExtension est une chaine=Remplace(LeNomFichier,ExtensionFichier,"")
//enleve extension du fichier
si SansEspace(LeFichierSansExtension)=SansEspace(NomFichierVideo) alors

//Il s'agit d'un fichier vidéo donc manipulable par les fonctions MCI

MciOuvre(LeChemin+LeNomFichier)
...
MciJoue(LeChemin+LeNomFichier)
...
MciFerme(LeChemin+LeNomFichier)

Renvoyer faux //pour arreter le parcours du repertoire
fin
#6
Posté le 07 novembre 2005 - 08:49
Bonjour,

Merci beaucoup pour vos réponses (notamment pour le code complet qui correspond exactement à mon besoin).
Je m'en vais de ce pas tester.

Si pas de nouvelles de ma part, bonnes nouvelles !!! ;o)

Bonne journée.

Pampi
→ Revenir à WINDEV 2024