Récupérer le chemin d'un fichier quelqu'il soit et où qu'il soitRésolu

Question

J'ai regard&#233; la faq et souvent il revient utilise extractfilepath &#231;a marche.



Bon et bien pour moi nada



Voil&#224; le code que j'utilise sur un bouton d'une form de mon application :



ShowMessage(ExtractFilePath('Fichier.ext'));



Le showmessage ne me renvoie rien.



J'ai essay&#233; extractfiledir, extractrelativepath, expandfilename et son
homologue en unc et rien du tout toujours une cha&#238;ne vide.



La seule syntaxe qui fonctionne correctement chez moi c'est : ExtractFilePath(Application.Exename);



Ce que je recherche moi c'est de pouvoir conna&#238;tre le chemin d'un
fichier qu'il soit ex&#233;cutable ou non et qu'il soit en local ou sur le
reseau et n'importe o&#249; pas uniquement dans le dossier qui contient mon
application.



J'ai winxp et delphi 7

jlen100 · Accepted Answer

pour recup&#233;rer le chemin d'un fichier il faut tout d'abord faire une recherche soit sur le disque soit sur le r&#233;seau utilise FileSearch(const Name, DirList: string): string; il faudra parcourir l'ensemble de l'arborescence.

ni69 · Answer

La fonction ExtractFilePath() ne peut renvoyer quelque-chose que si elle sait de quel fichier tu parles !

Dans ton code, le fichier pourrait se trouver n'importe o&#249; sur ton disque... 



Essaye plut&#244;t :

ExtractFilePath('C:\MonFichier.txt');

l&#224;, la fonction te renverra 'C:\'

@+
Bonne Prog'
Nico [www.ni69.new.fr]
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_barbichette · Answer

La fonction ExtractFilePath(name:string):string; retire en partant de la fin tous les caract&#232;res &#224; droite du dernier slash.
En fait, il ne regarde pas si c'est un fichier ou non.

Si on fait 
ExtractFilePath('coucou, c''est \ une phrase normale\Pour le test.voil&#224;'); 
&#231;a donne 'coucou, c''est \ une phrase normale\'
ExtractFilename('coucou, c''est \ une phrase normale\Pour le test.voil&#224;'); 
&#231;a donne 'Pour le test.voil&#224;'
ExtractFileext('coucou, c''est \ une phrase normale\Pour le test.voil&#224;'); 
&#231;a donne '.voil&#224;',

Ben voil&#224;, j'ai rajouter mon grain de sel...

informatixo · Answer

Tout d'abord, je tiens &#224; vous dire un grand merci &#224; tous pour l'aide que vous m'avez apport&#233;.



Je vais maintenant vous tenir au courant de ce que je vais faire et vous donner quelques pr&#233;cisions.



En fait j'ai 2 ordinateurs (un PC et un PC PORTABLE) en r&#233;seau avec un simple c&#226;ble crois&#233;.


Le PC poss&#232;de une application avec une base de donn&#233;es ACCESS et le PC
PORTABLE va contenir mon application qui doit envoyer des donn&#233;es vers
la base du PC.



Le probl&#232;me est qu'il me faut v&#233;rifier que la base existe bien avant de pouvoir l'ouvrir pour y &#233;crire dessus.



Pour le moment j'ai retenu simplement un :



if FileExists('\PCepertoire application\base de donnees.mdb') then

    je met le datasource avec ce chemin

else

    je g&#233;n&#232;re un message d'erreur;



J'ai r&#233;pondu r&#233;ponse accept&#233;e car je voudrais cr&#233;er une fonction ou une
proc&#233;dure qui utilise FileSearch et qui me permette de cherche un
fichier pour que mon application ne soit pas bloqu&#233;e si quelqu'un pour
une raison ou une autre change un nom de dossier pour une mise &#224; jour
par exemple.



En gros, je veux pouvoir retrouver mon fichier s'il existe et qu'il se
situe &#224; un autre endroit que celui initial et tant qu'&#224; r&#233;aliser une
fonction ou une proc&#233;dure autant qu'elle serve pour n'importe quel
fichier comme cel&#224; je pourrais la r&#233;utiliser pour d'autres fichiers
dans mon application.



Voil&#224; ma situation, le probl&#232;me c'est que je ne sais pas comment m'y
prendre pour parcourir une arborescence. De plus, si je fais une boucle
qui parcours mon arborescence en cherchant mon fichier en local ou sur
le reseau et qui me rencoie vrai ou faux, j'ai l'impression qu'en temps
d'ex&#233;cution cel&#224; risque d'&#234;tre long ? non ?



Si quelqu'un a une id&#233;e ou m&#234;me une fonction qui existerait d&#233;j&#224; dans
delphi je suis preneur. En attendant, encore merci &#224; tous et d&#233;sol&#233;
pour la r&#233;activit&#233; mais beaucoup de boulot et une connexion bas d&#233;bit
donc &#231;a aide pas.

jlen100 · Answer

salut,
pour retrouver le fichier il n'y a pas d'autre solution que de parcourir l'arborescence En effet il faut que le programme retrouve le fichier et faute de pouvoir lui indiquer le chemin il faudra bien qu'il le trouve lui-m&#234;me.
poru faire la recherche tu peux t'inspirer de la source de NoNo40:

Utiliser FindFirst en r&#233;cursif pour scruter les sous-r&#233;pertoires.
 en lui ajoutant un test pour v&#233;rfier que ton fichier est pr&#233;sent.
pour ce qui est du temps de traitement tout d&#233;pend du nombre de r&#233;pertoire, du nombre de fichiers et de la position du fichier recherch&#233; par rapport &#224; la racine.( le temps de recherche devrait &#234;tre similaire &#224; celui obtenu avec la fonction "Recherche" de l'exploreur. je te conseille de mettre un message d'avertissement en cas de recherche pour que l'uitilisateur ne croit pas que l'appli est plant&#233;e.
bonne prog

informatixo · Answer

Merci beaucoup pour ces pr&#233;cisions qui me seront tr&#232;s utiles et en plus
de la fonction recherche de fichier que je vais faire, je pense que je
donnerais la possibilit&#233; de parcourir le disque pour s&#233;lectionner le
bon chemin ou le bon nom de fichier comme dans certaines applications.



Merci encore

Récupérer le chemin d'un fichier quelqu'il soit et où qu'il soit

6 réponses

Votre réponse

Discussions similaires