Discussion :

[Invité]

Salut tout le monde,

Voila j'utilise FindFirtsFile pour scruter un dossier et voici mon probleme,
je souhaiterais qu'il ne détecte QUE les fichiers et ces fichiers sont sans extensions d'où mon problème.
Sachant que je ne peut pas rajouter une extension ( demande venant d'en haut) me rendant toute détection par extension strictement impossible.

Quelqu'un pourrait-il éclairer ma lanterne?

Merci d'avance

[sat83]

Pour scruter un répértoire, tu peux utiliser TSearchRec, FindFirst et FindNext. Un exemple d'utilisation ici.

Tu pourra vérifier si l'élément trouvé est un fichier ou un dossier avec l'attribut Attr de TSearchRec.

[Mac LAK]

Normalement, sous Windows, "pas d'extension" est équivalent à l'extension "." (ce qui est totalement faux sous Unix). Donc, le filtre correspondant à "tous les fichiers sans extensions" est "*.".
Essaie, pour voir si ça résout ton problème. Sinon, il faudra détailler un peu plus le souci.

EDIT : Plus GetFileAttributes pour distinguer les fichiers des répertoires, au fait...

[Invité]

j'essaie sa en début d'après midi et je vous tien au courant.
Je vais lutter contre la neige.
bonne appétit

[Invité]

Je suis en recherche de documentation sur TSerachRec( Google n'as pas était mon ami ce coup-ci) et surtout sur l'argument attr que je n'arrive pas a utiliser serait-il abusé de te demander si tu a un exemple sous la ma main a me mettre sous la dent?

Merci


PS: j'ai essayer le (*.) et il détecte toujours les dossiers.

[sat83]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  AnsiString path = "C:\\NomRepertoire\\" ;
  TSearchRec sr;
  if (!FindFirst(  path + "*", faAnyFile, sr))
  do
  {
    if( (sr.Attr & faDirectory) > 0) // test si il s'agit d'un répertoire
      ShowMessage( sr.Name + " est un répertoire" ) ;
    else
      ShowMessage( sr.Name + " est un fichier" ) ;
  }
  while(!FindNext(sr));
  FindClose(sr);

A noter: Comme dans tout répertoire sous windows, tu trouvera les dossiers "." (répertoire courant) et ".." (répertoire parent) qui sont invisible depuis l'explorateur windows.

.

[Invité]

Merci pour ce bout de code je vais exploiter sa de suite et donner le résultat