Findfirst, findnext liste des fichiers, mais pas les répertoires...?

le code suivant répertorie les fichiers mais pas les répertoires

var 
rec : tsearchrec;
begin
findfirst('c:\test\*',faanyfile-fadirectory,rec);
        showmessage(rec.Name);
if findnext(rec) <> 0 then close else
showmessage (rec.Name);
end;

Et la problème est....
juste que sa liste de fichiers répertoires
et j'ai mis "/*" après c:/test mais stackoverflow n'est pas de l'enregistrer, je pense que quelque chose de mal avec leur serveur
Utilisez "\\*" pour afficher "\*". (même dans les commentaires - oh man!)
Omair, et alors? Qu'avez-vous vous attendez à faire quand vous soustrait faDirectory? Que voulez-vous faire à la place?

InformationsquelleAutor Omair Iqbal | 2009-09-25

delphi

18
1. Vous avez besoin de ne PAS exclure les répertoires, qui vous malheureusement faire avec votre (-faDirectory)
2. Vous devez appeler FindClose lorsque vous avez terminé.
3. Vous avez besoin de boucle si vous souhaitez trouver de tout dans le répertoire
```
var
 rec : tsearchrec;
begin
  if FindFirst('c:\*', faAnyFile, rec) = 0 then
  begin
    repeat
      ShowMessage(rec.Name);
    until FindNext(rec) <> 0;
    FindClose(rec);
  end;
end;
```
- merci, c'est l'affichage des répertoires maintenant, mais un problème de plus il est de retour '..' et '.' dans showmessage ainsi que des fichiers et des dossiers, quels sont-ils, je suis passé "option afficher les fichiers cachés sur" mais encore ne peux pas le voir tout '.' et '..' s'il vous plaît aider!
- aussi, j'ai essayé de montrer " juste des répertoires à l'aide de '-faanyfile ou fadirectory' dans les attributs de la constante de manière à ce qu'il ne montre pas tout les fichiers mais seulement répertoire, mais il est encore de retour fichiers
- Omair, "." et ".." sont des entrées de répertoire, comme toute autre entrée de répertoire. Il vous suffit de vous assurer que votre code puisse les traiter. Aussi, vous l'avez sans doute compris que FirstFirst n'est pas très bon à l' hors résultats. La pratique courante est d'utiliser FindFirst et FindNext à énumérer tous des fichiers et des répertoires, puis vérifier les critères dont vous avez besoin dans votre propre code et ignorer ceux que vous ne voulez pas.
- mais que sont les '.' et '..' pour? sont-ils des répertoires et si ils sont pourquoi ne puis-je pas accéder même à partir de l'invite de commande? 2.est-il une bonne alternative à la méthode findfirst?.3. alors que je ne sais pas c++ c++ ont une bonne findfirst comme la fonction qui est mieux à l'exclusion des résultats?
- est un alias du répertoire courant et ".." est le répertoire parent. Si vous tapez "cd .." à l'invite de commandes, vous vous déplacez à partir du répertoire courant à son parent.
- Veuillez lire la saisie de l'aide de la méthode FindFirst. Si vous souhaitez uniquement les répertoires, il suffit d'utiliser le drapeau faDirectory. Aller et de regarder où il est défini et vous verrez toutes les options disponibles que vous pouvez combiner avec ou. (faAnyfile étant déjà une combinaison en elle-même). Maintenant, que Rob a expliqué, construire le drapeau pour englober tous les fichiers dont vous avez besoin et sélectionnez ceux que vous voulez vraiment à l'intérieur de la boucle avec une condition if répondant à vos critères spécifiques.
- oui mais pourquoi ne findfirst liste comme des répertoires, ils sont juste DOS ère fonctions...est quelque chose de mal avec windows ou delphi ou suis-je en faire un problème d'une importance affaire 🙂
- Oui, vous pouvez faire une montagne d'une taupinière. Les répertoires sont stockées en tant que fichiers sur le disque, et leur contenu sont toutes les choses que vous pouvez obtenir à partir de ce répertoire. Vous pouvez aller à partir de l'annuaire à son parent, de sorte que chaque répertoire a ".." entrée. De même pour le "." l'entrée; vous pouvez choisir d'aller nulle part. C'est la façon dont les systèmes de fichiers de travail. Les systèmes de fichiers sont DOS de l'ère de choses, depuis qu'ils ont existé pendant le DOS ère. Mais nous utilisons encore aujourd'hui. Je les utilise en ligne de commande tous les jours pour désigner les choses par rapport au répertoire courant, et pourtant je n'ai pas utilisé le DOS depuis les années '90.
- href="http://docwiki.embarcadero.com/Libraries/en/System.SysUtils.FindFirst" >lire la documentation à propos de la façon dont la liste filtre fonctionne réellement: "L'Attr paramètre spécifie les fichiers spéciaux include en plus de tous les fichiers normaux.". En d'autres termes, FindFirst() renvoie toujours les fichiers, même si vous ne souhaitez que des dossiers. Vous avez besoin de tester l' TSearchRec.Attr terrain afin de déterminer si le signalement d'entrée est en fait un fichier ou un dossier (et si vous avez de mettre en œuvre une boucle récursive, assurez-vous d'ignorer le "." et ".." dossiers ou votre boucle répète indefinately).
InformationsquelleAutor François

Lire la documentation sur la façon dont le filtre fonctionne réellement:

La Attr paramètre spécifie les fichiers spéciaux comprennent en plus
pour tous les fichiers normaux.

En d'autres termes, FindFirst() renvoie toujours les fichiers normaux, indépendamment de tout critère de filtre que vous spécifiez. Le Attr paramètre simplement comprend autres types d'attributs dans la base de filtre. Vous avez besoin de tester l' TSearchRec.Attr terrain afin de déterminer si le signalement d'entrée est en fait un fichier ou un répertoire, par exemple:

if (rec.Attr and faDirectory) <> 0 then
  // item is a directory
else
  // item is a file

Si vous mettez en œuvre une recherche récursive de la boucle, assurez-vous d'ignorer le "." et ".." répertoires ou votre boucle répète indefinately:

procedure ScanFolder(const Path: String);
var  
  sPath: string;
  rec : TSearchRec; 
begin 
  sPath := IncludeTrailingPathDelimiter(Path);
  if FindFirst(sPath + '*.*', faAnyFile, rec) = 0 then 
  begin
    repeat
      // TSearchRec.Attr contain basic attributes (directory, hidden,
      // system, etc). TSearchRec only supports a subset of all possible
      // info. TSearchRec.FindData contains everything that the OS
      // reported about the item during the search, if you need to
      // access more detailed information...

      if (rec.Attr and faDirectory) <> 0 then
      begin
        // item is a directory
        if (rec.Name <> '.') and (rec.Name <> '..') then
          ScanFolder(sPath + sr.Name);
      end
      else
      begin
        // item is a file
      end;
    until FindNext(rec) <> 0;
    FindClose(rec);
  end;
end; 

ScanFolder('c:\test');

InformationsquelleAutor Remy Lebeau

4

Vous sont explicitement exclues de répertoires en déclarant "- faDirectory" dans le paramètre flags.

InformationsquelleAutor devio
2

Ce sujet findfirst('c:\test\*', faanyfile, rec); //pas faanyfile-fadirectory

InformationsquelleAutor utku_karatas
-2

Si vous voulez tous les fichiers et répertoires, il suffit de passer dans faDirectory à la méthode findfirst. Il va déjà de retour vous fichiers.
- Et j'espère que ce ne sera jamais fixe et de ne renvoyer que les répertoires comme prévu...
- Je vais juste basé sur la documentation volumineuse qui est là-bas.
- Mais pourquoi voudriez-vous passer faDirectory quand vous pouvez juste passer faAnyFile, même si vous pouvez compter sur le fait que cela ne changera pas? C'est pas lisible.
InformationsquelleAutor Joe

Vous devez vous connecter pour publier un commentaire.