Discussion :

[nvtitan]

salut j'essaie de faire un logiciel qui permettrait de visualiser les fichiers d'un repertoire sous formes d'un fichier du type html.Faire une sorte de liste des fichiers du repertoire quoi.
Le probleme est que je ne sait pas comment faire ? Quelqu'un pourrait il m'aider un petit peu histoire d'avancer un petit peu. :

[charly]

faut regarder les interuption dos (regarde dans l aide ) y a des gestions des repertoire sinon tu pourra te debrouiller en asm mais alors la bon courage
@+charly

[Eric Sigoillot]

Pour lire les fichiers d'un répertoire, c'est simple. Maintenant, si tu veux gérer le format HTML, tu vas t'amuser un peu plus !

Mais revenons aux répertoires. Il te faut utiliser l'unité Dos et les procédures FindFirst/FindNext, comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
uses
  Dos;
 
var
  S: SearchRec;
 
begin
{ On recherche les fichiers ayant l'attribut Archive, n'importe quel nom }
FindFirst('*.*', Archive, S);
while DosError = 0 do
  begin
  WriteLn(S.Name); { On affiche le nom du fichier }
  FindNext(S); { On recherche l'ocurrence suivante }
  end;
end.

A+

[Eric Sigoillot]

Ah non Charly ! Désolé, mais tu n'as jamais mentionné l'unité Dos : tu as parlé des interrptions Dos, ce qui n'est pas du tout la même chose !

Toi, tu suggérais de passer par l'int 21h, alors que l'unité Dos offre une interface à cette interruption.

Il ne faudrait pas tirer toute la couverture à toi !

A+

[haypo]

Ca vous arrive de répondre aux questions plutôt de blablater ? ;-)

Pour lister un répertoire, et ses sous-répertoire, utilise une fonction récursive : elle s'appelerait elle-même.

procedure AfficheRepetoire (Rep: String);
begin
...
Rentre dans le répertoire Rep
Tantqu'il reste des fichiers
Si on a un répertoire (tester les attributs)
ChDirRep+Nouveau;
AfficheRepertoire;
Redessendre du répertoire : ChDir Rep
Sinon
Afficher le fichier
FinTantQue
...
end;

Je vous laisse traduire l'algo en code Pascal. Pour lister d'abord les sous-répertoire, ou bien après : faire deux boucles TantQue où la première/seconde ne fait que des appels récursifs et la seconde/première ne fait qu'afficher les fichiers.

C'est le même style d'algo pour cherche un répertoire sur tout le disque dur.

@+ Haypo