Welcome, Guest

Forum

CodeTyphon Studio

CodeTyphon Studio Components and Libraries

General Purpose

FindAllDirectories return wrong value?

General Purpose Components and Libraries, discussions, problems and suggestions

Page:
1

TOPIC:

FindAllDirectories return wrong value? 8 years 7 months ago #9444

Bronislav Miksha
Topic Author
Offline
New Member
Posts: 6
Thank you received: 0

Hello!
I have problem with obtaining a list of directories in directories begin with dot.

In Delphi TDirectory.GetDirectories('d:\test','*',TSearchOption(1)) return:

d:\test\.DotDir
d:\test\.DotDir\dir
d:\test\.DotDir\dir1
d:\test\.DotDir\dir1\dir2
d:\test\.DotDir\dir1\dir2\dir3
d:\test\Dir
d:\test\Dir\Dir4
d:\test\Dir\dir5

In Typon FindAllDirectories('d:\test',True); return:

d:\test\.DotDir
d:\test\Dir
d:\test\.DotDir\dir
d:\test\.DotDir\dir1
d:\test\Dir\Dir4
d:\test\Dir\dir5

Typhon 5.8 r52101 FPC 3.1.1 x86_64-win64-win32/win64

Please Log in or Create an account to join the conversation.

Last edit: by Bronislav Miksha.

FindAllDirectories return wrong value? 8 years 7 months ago #9445

Sternas Stefanos Offline Moderator Ex Pilot, M.Sc, Ph.D Posts: 4535 Thank you received: 1114	Thanks Sir Did you test Lab CT ver 5.8 Revision 005720 ? PilotLogic Architect and Core Programmer
	Please Log in or Create an account to join the conversation.

FindAllDirectories return wrong value? 8 years 7 months ago #9450

Bronislav Miksha Topic Author Offline New Member Posts: 6 Thank you received: 0	Thanks for the support! Unfortunately it did not help. Attached my test project. Attachments: ...DirsReport.zip
	Please Log in or Create an account to join the conversation.

FindAllDirectories return wrong value? 8 years 7 months ago #9451

Sternas Stefanos Offline Moderator Ex Pilot, M.Sc, Ph.D Posts: 4535 Thank you received: 1114	Sir we test your project -pic1 Typhon32 -pic2 Typhon64 Windows 10 Pro 64bits PilotLogic Architect and Core Programmer Attachments: ...-1-2-3-4-5.jpg ...0-11-12-13.jpg
	Please Log in or Create an account to join the conversation.

FindAllDirectories return wrong value? 8 years 7 months ago #9453

Bronislav Miksha Topic Author Offline New Member Posts: 6 Thank you received: 0	Thanks for the support! I think found the reason. I copied the folders from a Linux system. And there is a folder beginning with a dot are considered hidden mark. If you set the flag "Hidden" is a problem. I recorded a little video with this problem.
	Please Log in or Create an account to join the conversation.

FindAllDirectories return wrong value? 8 years 6 months ago #9531

Bronislav Miksha
Topic Author
Offline
New Member
Posts: 6
Thank you received: 0

Hello sir!
My solution in analogy with findallfiles:
In fileutil.pas edit

function FindAllDirectories(const SearchPath: string;
  SearchSubDirs: Boolean = True; DirAttr:DWord = faDirectory): TStringList; overload;
procedure FindAllDirectories(AList: TStrings; const SearchPath: String;
  SearchSubDirs: Boolean = True ; DirAttr:DWord = faDirectory); overload;

In fileutil.inc after

Searcher := TListDirectoriesSearcher.Create(AList);

add

Searcher.DirectoryAttribute := DirAttr;

example

DirectoriesList:=FindAllDirectories(TestDir,True,(faDirectory or faHidden));

Could you check out this solution and if it is valid to add it by default in fileutil?