DirectoryEntryName() et les répertoires

[Heis Spiter]

Voila, ce serait bien que DirectoryEntryName() retourne le nom même si le "fichier" est un répertoire. En attendant, si quelqu'un a une solution de rechange, je suis prenneur.

[Chris]

Sauf erreur, c'est bien ce qu'il fait déjà, il me semble!

C'est avec NextDirectoryEntry() que tu détermines si c'est un fichier ou un dossier, (retour 1 ou 2), mais DirectoryEntryName() te renvoie toujours un nom.

Non???

[Heis Spiter]

Non, en cas de répertoire, il renvoi un point

[Heis Spiter]

Je viens de voir, cela dépend des répertoires !!! Voici le résultat d'un examen du dossier de Pure

2
.
---
2
..
---
2
PureLibraries
---
1
unins000.dat
---
1
unins000.exe
---
2
src
---
1
Visual Designer.exe
---
2
TailBite
---
2
PBSyntax
---
1
Beta - ReadMe.txt
---
1
Visual Designer.prefs
---
1
Tools.prefs
---
1
PureBasic.chm
---
2
Catalogs
---
2
Examples
---
2
Compilers
---
1
SmartUpdate.prefs
---
1
PureBasic.exe
---
1
Visual Designer.exe.manifest
---
2
Simple
---
1
SmartUpdate.exe
---
1
PureBasic.prefs
---
2
Languages
---
2
Update
---
1
UpdateTool.exe
---
1
UpdateTool.exe.manifest
---
2
Debugger
---
2
Library SDK
---
1
Visual Designer.chm
---
1
PBSyntax.exe
---
1
PureBasic.exe.manifest
---
1
SmartUpdate.exe.manifest
---
1
Visual Designer Constants.prefs
---
1
PBSyntax.exe.manifest
---
2
help
---
1
ClientMain.pb
---
1
ClientInclude.pb
---
2
RichEdit
---
1
ZipInclude.pb
---
1
PB Constants display.exe
---
1
Constants.out
---
1
GeneratedMainFile.pb
---
2
UserLibraries
---
1
GeneratedIncludeFile.pb
---
2
Residents
---

Code : Tout sélectionner

If ExamineDirectory(2, "C:\Program files\PureBasic", "*.*")
  NDE = NextDirectoryEntry()
  While NDE <> 0
    Debug NDE
    DEN$ = DirectoryEntryName()
    Debug DEN$
    Debug "---"
    NDE = NextDirectoryEntry()
  Wend
EndIf

[Heis Spiter]

Bon, encore du nouveau. J'ai lancé un listing juste pour les répertoire avec un compteur, voici le résultat

2
.
---
2
..
---
2
PureLibraries
---
2
src
---
2
TailBite
---
2
PBSyntax
---
2
Catalogs
---
2
Examples
---
2
Compilers
---
2
Simple
---
2
Languages
---
2
Update
---
2
Debugger
---
2
Library SDK
---
2
help
---
2
RichEdit
---
2
UserLibraries
---
2
Residents
---
i = 18

Or, j'ai été voir mon dossier de Pure, et il contient 16 répertoires...
Bug de Pure ces points ?

[Chris]

Non, c'est pas un bug, ça c'est sûr.
Je ne sais plus exactement à quoi ça correspond, mais c'est normal.

Ouvre Winrar, par exemple, et tu verras qu'il y a deux points quand tu est dans un sous répertoire.

Il suffit de ne pas les faire afficher, c'est tout.

Code : Tout sélectionner

If ExamineDirectory(0, "D:\PureBasic", "*.*")
  Repeat
    Type = NextDirectoryEntry()
    Name$ = DirectoryEntryName()
    
    If Name$ <> "." And Name$ <> ".."
      If Type = 1
        Name$ = "(FIC) -----> "+Name$
      ElseIf Type = 2
        Name$ = "(DIR) -----> "+Name$
      EndIf
      Debug Name$
    EndIf
    
  Until Type = 0 
EndIf

[Anonyme2]

Le . et le .. sont des restes de la gestion des répertoires sous dos.

passez en mode dos et faites un listing de la racine par exemple.

[cederavic]

\. = racine du dossier
\.. = dossier parent

si mes souvenir sont bons

[Backup]

ben oui en dos on sort d'un dossier en tappant :

Code : Tout sélectionner

cd ..