Bas Files Count and List by Recursive Algorithm

[bplus]

Here is something that might actually be useful, temperamental as hell but I finally got results after several compromises:
 
I had to ChDir to the search Directory to get good results from the GetLists Subroutine. I had never noted that before but it turns out I did do that for Oh Interpreter and other places I successfully used the cross platform files retriever. Dang! It's so frustrating to think you've got something nailed down, go to use it 6 months later and stumble into problems.

Then Windows wont let me ChDir in allot of places where _DirExists so I couldn't just start looking from C:\ for bas files nor even from C:\users\me and my stuff! blah!
But it did work OK from my Desktop and my Downloads Folders where I learn tonight over 10,000 bas files reside.

Takes about 1 sec to do the downloads folder that had 2115 bas files.

Code: QB64: [Select]

1. _Title "Count BAS files from a start Directory" ' b+ 2021-11-04
2.  
3. ' direntry.h needs to be in QB64.exe folder, see below for a commented copy
4. Declare CustomType Library ".\direntry"
5.     Function load_dir& (s As String)
6.     Function has_next_entry& ()
7.     Sub close_dir ()
8.     Sub get_next_entry (s As String, flags As Long, file_size As Long)
9. End Declare
10.  
11. ReDim Shared BasList$(10000) 'store our Bas pathed Files here
12. Dim Shared GrandTotal As _Unsigned Long ' ha, ha not that many!
13.  
14. FullPathedDir$ = "C:\Users\marka\downloads" ' <<<<<<<<<<<<<  change this line to top directory of your search for
15. '                                                            best results use places where Windows lets you write bas files.
16.  
17. FindAndCountBasFileFrom FullPathedDir$
18. Print " Grand Total .bas ="; GrandTotal
19. Open FullPathedDir$ + "\Bas List.txt" For Output As #1
20. For i = 1 To GrandTotal
21.     Print #1, BasList$(i)
22. Next
23. Close #1
24. Print FullPathedDir$ + "\Bas List.txt file is ready."
25.  
26.  
27. Sub FindAndCountBasFileFrom (startDir$)
28.     If startDir$ <> "." And startDir$ <> ".." And _Trim$(startDir$) <> "" Then
29.         If Right$(startDir$, 1) <> "\" Then startDir$ = startDir$ + "\"
30.         If _DirExists(startDir$) Then ChDir startDir$ Else Exit Sub ' >>> There are allot of places where dir exists but cant CD to go!
31.         'Print "Changing Directory to "; startDir$; ""
32.         ReDim ds(0) As String, fs(0) As String
33.         GetLists startDir$, ds(), fs()
34.         'Print startDir$ + " .bas Files:"
35.         For i = LBound(fs) To UBound(fs)
36.             If UCase$(Right$(fs(i), 4)) = ".BAS" Then
37.                 GrandTotal = GrandTotal + 1
38.                 Print GrandTotal, startDir$ + fs(i)
39.                 BasList$(GrandTotal) = startDir$ + fs(i)
40.                 'If i Mod 20 = 19 Then Print "Press any to cont..": Sleep
41.             End If
42.         Next
43.         'Print
44.         'Print startDir$ + " Sub-Directories:  zzz...": Sleep
45.         For j = LBound(ds) To UBound(ds)
46.             If ds(j) <> "." And ds(j) <> ".." And _Trim$(ds(j)) <> "" Then
47.                 newD$ = startDir$ + ds(j)
48.                 'Print "Press any to FindAndCountBasFileFrom " + newD$ + "... zzz": Sleep
49.                 FindAndCountBasFileFrom newD$
50.             End If
51.         Next
52.         'Print "Press any to cont...": Sleep
53.     End If
54. End Sub
55.  
56. Sub GetLists (SearchDirectory As String, DirList() As String, FileList() As String)
57.  
58.     '   !!! For this sub to work the _CWD has to be the Search Directory! !!!
59.  
60.     ' Thanks SNcNeill ! for a cross platform method to get file and directory lists
61.     'put this block in main code section of your program close to top
62.     '' direntry.h needs to be in QB64 folder '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
63.     'DECLARE CUSTOMTYPE LIBRARY ".\direntry"
64.     '    FUNCTION load_dir& (s AS STRING)
65.     '    FUNCTION has_next_entry& ()
66.     '    SUB close_dir ()
67.     '    SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
68.     'END DECLARE
69.  
70.     Const IS_DIR = 1
71.     Const IS_FILE = 2
72.     Dim flags As Long, file_size As Long, DirCount As Integer, FileCount As Integer, length As Long
73.     Dim nam$
74.     ReDim _Preserve DirList(100), FileList(100)
75.     DirCount = 0: FileCount = 0
76.  
77.     If load_dir(SearchDirectory + Chr$(0)) Then
78.         Do
79.             length = has_next_entry
80.             If length > -1 Then
81.                 nam$ = Space$(length)
82.                 get_next_entry nam$, flags, file_size
83.                 If (flags And IS_DIR) Then
84.                     DirCount = DirCount + 1
85.                     If DirCount > UBound(DirList) Then ReDim _Preserve DirList(UBound(DirList) + 1000)
86.                     DirList(DirCount) = nam$
87.                 ElseIf (flags And IS_FILE) Then
88.                     FileCount = FileCount + 1
89.                     If FileCount > UBound(FileList) Then
90.                         ReDim _Preserve FileList(UBound(FileList) + 1000)
91.                         'Print Left$(SearchDirectory, Len(searchDiretory) - 1)
92.                         'getting allot of wierd misfires
93.                         If Left$(SearchDirectory, Len(searchDiretory) - 1) = "C:\" Then Exit Sub
94.                     End If
95.                     FileList(FileCount) = nam$
96.                 End If
97.             End If
98.         Loop Until length = -1
99.         'close_dir 'move to after end if  might correct the multi calls problem
100.     Else
101.     End If
102.     close_dir 'this  might correct the multi calls problem
103.  
104.     ReDim _Preserve DirList(DirCount)
105.     ReDim _Preserve FileList(FileCount)
106. End Sub
107.  
108. '  Remove comments below and save as direntry.h
109. ' in your QB64.exe folder if you don't have it already
110. '=============================================================
111.  
112. '#include <dirent.h>
113. '#include <sys/stat.h>
114. '#include <unistd.h>
115.  
116. 'const int IS_DIR_FLAG = 1, IS_FILE_FLAG = 2;
117.  
118. 'DIR *pdir;
119. 'struct dirent *next_entry;
120. 'struct stat statbuf1;
121.  
122. 'char current_dir[FILENAME_MAX];
123. '#ifdef QB64_WINDOWS
124. '  #define GetCurrentDir _getcwd
125. '#else
126. '  #define GetCurrentDir getcwd
127. '#endif
128.  
129. 'int load_dir (char * path) {
130. '  struct dirent *pent;
131. '  struct stat statbuf1;
132. '//Open current directory
133. 'pdir = opendir(path);
134. 'if (!pdir) {
135. 'return 0; //Didn't open
136. '}
137. 'return -1;
138. '}
139.  
140. 'int has_next_entry () {
141. '  next_entry = readdir(pdir);
142. '  if (next_entry == NULL) return -1;
143.  
144. '  stat(next_entry->d_name, &statbuf1);
145. '  return strlen(next_entry->d_name);
146. '}
147.  
148. 'void get_next_entry (char * nam, int * flags, int * file_size) {
149. '  strcpy(nam, next_entry->d_name);
150. '  if (S_ISDIR(statbuf1.st_mode)) {
151. '    *flags = IS_DIR_FLAG;
152. '  } else {
153. '    *flags = IS_FILE_FLAG;
154. '  }
155. '  *file_size = statbuf1.st_size;
156. '  return ;
157. '}
158.  
159. 'void close_dir () {
160. '  closedir(pdir);
161. '  pdir = NULL;
162. '  return ;
163. '}
164.  
165. 'int current_dir_length () {
166. '  GetCurrentDir(current_dir, sizeof(current_dir));
167. '  return strlen(current_dir);
168. '}
169.  
170. 'void get_current_dir(char *dir) {
171. '  memcpy(dir, current_dir, strlen(current_dir));
172. '  return ;
173. '}
174.  
175.  

Theoretically this is cross platform, would non Windows users verify?

So how many bas files have you got laying around your computer?

Update: This code has nasty error in it and is missing allot of folders.

[Petr]

So how many bas files have you got laying around your computer?

Hi, just for curiosity - 7717 (but not all are my own sources)

[bplus]

Thanks Petr, I can assume it's working for you too on Windows probably.

Yeah most my bas files are probably not mine, some are yours.

For Linux I am wondering if the slash is pointed the right way for paths, supposedly for Windows it doesn't matter.

[bplus]

oops!

I started digging into a smaller directory count and found it missing folders from a certain point onward.

I don't know if GetLists is still buggy or just trying to use it for this recursive code.

[Cobalt]

finds 2 files(in drive d:\, 3 files in drive E:\ and 0 files in c:\) then errors out with "PATH NOT FOUND" error.

[bplus]

Well I never intended it to jump drives, probably should have. Do you think ChDir (without change drives also like we needed in DOS) could keep up with that?

GetLists routine needs to be in the Directory it's finding files and folders from = the compromise I am willing to accept to be able to do cross platform. No one else, including Spriggsy with PipeCom, has been able to produce simple File and Directory lists that one can use for navigation or as I am trying here: counting Bas Files in a directory and all it's subdirectories. (It's kinda odd because the IDE is doing it and very well, thank very much!, and I am assuming it uses something like the GetLists routine.)

Currently I am attempting a fix with Stack Techniques. I am pretty sure whatever is broken is from trying it with recursive calls. I am having no trouble navigating and finding files with GetLists in both TextFetch and the Oh Interpreter even after the QB64 v2.0 update, I've run both now with QB64 v 2.0. (Did have to fix Oh Interpreter in a couple of places.)

[TempodiBasic]

Hi Bplus
here my feedback from Windows 8.1 pro

 

as you can see your application found more file than CMD : DIR *.BAS /S

What do I to think about it?

[SMcNeill]

Why use CHDIR?  There's a lot of hidden and system only directories which won't let you into them, but you can still get a directory listing from them.

For example, this is a recursive routine which gets ALL the file and directories from a folder and its subfolders -- warning, this might take a while to run if you choose a directory with a zillion files such as the root directory of C:\.  If you get tired of waiting, hit ESC and it'll dump what it's found so far to disk to and screen for you to view.

Code: QB64: [Select]

1. _Title "Count BAS files from a start Directory" ' b+ 2021-11-04
2.  
3. ReDim Shared BasList$(10000) 'store our Bas pathed Files here
4.  
5. ReDim As String Dir(0)
6.  
7. GetAll "C:\", Dir()
8. Open "DirList.txt" For Output As #1
9. For i = 1 To UBound(Dir)
10.     If _DirExists(Dir(i)) Then Color 7 Else Color 15
11.     Print #1, Dir(i)
12.     Print i, Dir(i)
13. Next
14. Close
15.  
16.  
17. Sub GetAll (Path As String, DirList() As String)
18.     If _KeyDown(27) Then Exit Sub
19.     ReDim tempDir(0) As String
20.     GetDir Path, tempDir()
21.     For i = 1 To UBound(tempDir)
22.         DirCount = UBound(DirList) + 1
23.         ReDim _Preserve DirList(DirCount)
24.         DirList(DirCount) = tempDir(i)
25.         If _DirExists(tempDir(i)) And Right$(tempDir(i), 1) <> "." Then
26.             DirList(DirCount) = DirList(DirCount) + "\"
27.             GetAll tempDir(i), DirList()
28.         End If
29.  
30.     Next
31. End Sub
32.  
33.  
34. Sub GetDir (SearchDirectory As String, DirList() As String)
35.     Declare CustomType Library ".\direntry"
36.         Function load_dir& (s As String)
37.         Function has_next_entry& ()
38.         Sub close_dir ()
39.         Sub get_next_entry (s As String, flags As Long, file_size As Long)
40.     End Declare
41.  
42.     Dim flags As Long, file_size As Long, DirCount As Integer, FileCount As Integer, length As Long
43.     Dim nam$
44.     DirCount = UBound(DirList)
45.     If Right$(SearchDirectory, 1) = "\" Or Right$(SearchDirectory, 1) = "/" Then SearchDirectory = Left$(SearchDirectory, Len(SearchDirectory) - 1)
46.     If load_dir(SearchDirectory + Chr$(0)) Then
47.         Do
48.             length = has_next_entry
49.             If length > -1 Then
50.                 nam$ = Space$(length)
51.                 get_next_entry nam$, flags, file_size
52.                 If Right$(nam$, 1) <> "." Then
53.                     DirCount = DirCount + 1
54.                     If DirCount > UBound(DirList) Then ReDim _Preserve DirList(UBound(DirList) + 1000)
55.                     DirList(DirCount) = SearchDirectory + "\" + nam$
56.                 End If
57.             End If
58.         Loop Until length = -1
59.     End If
60.     close_dir
61.     ReDim _Preserve DirList(DirCount)
62. End Sub
63.  
64. '  Remove comments below and save as direntry.h
65. ' in your QB64.exe folder if you don't have it already
66. '=============================================================
67.  
68. '#include <dirent.h>
69. '#include <sys/stat.h>
70. '#include <unistd.h>
71.  
72. 'const int IS_DIR_FLAG = 1, IS_FILE_FLAG = 2;
73.  
74. 'DIR *pdir;
75. 'struct dirent *next_entry;
76. 'struct stat statbuf1;
77.  
78. 'char current_dir[FILENAME_MAX];
79. '#ifdef QB64_WINDOWS
80. '  #define GetCurrentDir _getcwd
81. '#else
82. '  #define GetCurrentDir getcwd
83. '#endif
84.  
85. 'int load_dir (char * path) {
86. '  struct dirent *pent;
87. '  struct stat statbuf1;
88. '//Open current directory
89. 'pdir = opendir(path);
90. 'if (!pdir) {
91. 'return 0; //Didn't open
92. '}
93. 'return -1;
94. '}
95.  
96. 'int has_next_entry () {
97. '  next_entry = readdir(pdir);
98. '  if (next_entry == NULL) return -1;
99.  
100. '  stat(next_entry->d_name, &statbuf1);
101. '  return strlen(next_entry->d_name);
102. '}
103.  
104. 'void get_next_entry (char * nam, int * flags, int * file_size) {
105. '  strcpy(nam, next_entry->d_name);
106. '  if (S_ISDIR(statbuf1.st_mode)) {
107. '    *flags = IS_DIR_FLAG;
108. '  } else {
109. '    *flags = IS_FILE_FLAG;
110. '  }
111. '  *file_size = statbuf1.st_size;
112. '  return ;
113. '}
114.  
115. 'void close_dir () {
116. '  closedir(pdir);
117. '  pdir = NULL;
118. '  return ;
119. '}
120.  
121. 'int current_dir_length () {
122. '  GetCurrentDir(current_dir, sizeof(current_dir));
123. '  return strlen(current_dir);
124. '}
125.  
126. 'void get_current_dir(char *dir) {
127. '  memcpy(dir, current_dir, strlen(current_dir));
128. '  return ;
129. '}
130.  

Note that I've also tweaked the GetDir routine here so that it just does a simple file dump for us, without presorting files and directories for us.  (I also added the full path onto the file names, which I think is essential in a case of recursion so you can tell what the heck it found where...)

This has no issues on my PC starting at the root drive and working its way down into the various subdirectories, and as far as I can tell it's not missing anything.

Note 2:  This doesn't autoclear the old directory listing and builds upon it as you call it.  If you're going to call the routine multiple times, reset your listing with a fresh ReDim As String Dir(0) before making the call to GetAll.

[SMcNeill]

And to just see a list of all the BAS files which you have, the following should work:

Code: QB64: [Select]

1. _Title "Count BAS files from a start Directory" ' b+ 2021-11-04
2.  
3. ReDim Shared BasList$(100000) 'store our Bas pathed Files here
4.  
5. ReDim As String Dir(0)
6.  
7. GetAll "D:\", Dir()
8. Open "BasList.txt" For Output As #1
9. For i = 1 To UBound(Dir)
10.     If _DirExists(Dir(i)) Then Color 7 Else Color 15
11.     If _StriCmp(Right$(Dir(i), 4), ".bas") = 0 Then
12.         'it's a BAS file
13.         BasCount = BasCount + 1
14.         BasList$(BasCount) = Dir(i)
15.         Print BasCount, BasList$(BasCount)
16.         Print #1, BasCount, BasList$(BasCount)
17.     End If
18. Next
19. Close
20.  
21.  
22. Sub GetAll (Path As String, DirList() As String)
23.     If _KeyDown(27) Then Exit Sub
24.     ReDim tempDir(0) As String
25.     GetDir Path, tempDir()
26.     For i = 1 To UBound(tempDir)
27.         DirCount = UBound(DirList) + 1
28.         ReDim _Preserve DirList(DirCount)
29.         DirList(DirCount) = tempDir(i)
30.         If _DirExists(tempDir(i)) And Right$(tempDir(i), 1) <> "." Then
31.             DirList(DirCount) = DirList(DirCount) + "\"
32.             GetAll tempDir(i), DirList()
33.         End If
34.  
35.     Next
36. End Sub
37.  
38.  
39. Sub GetDir (SearchDirectory As String, DirList() As String)
40.     Declare CustomType Library ".\direntry"
41.         Function load_dir& (s As String)
42.         Function has_next_entry& ()
43.         Sub close_dir ()
44.         Sub get_next_entry (s As String, flags As Long, file_size As Long)
45.     End Declare
46.  
47.     Dim flags As Long, file_size As Long, DirCount As Integer, FileCount As Integer, length As Long
48.     Dim nam$
49.     DirCount = UBound(DirList)
50.     If Right$(SearchDirectory, 1) = "\" Or Right$(SearchDirectory, 1) = "/" Then SearchDirectory = Left$(SearchDirectory, Len(SearchDirectory) - 1)
51.     If load_dir(SearchDirectory + Chr$(0)) Then
52.         Do
53.             length = has_next_entry
54.             If length > -1 Then
55.                 nam$ = Space$(length)
56.                 get_next_entry nam$, flags, file_size
57.                 If Right$(nam$, 1) <> "." Then
58.                     DirCount = DirCount + 1
59.                     If DirCount > UBound(DirList) Then ReDim _Preserve DirList(UBound(DirList) + 1000)
60.                     DirList(DirCount) = SearchDirectory + "\" + nam$
61.                 End If
62.             End If
63.         Loop Until length = -1
64.     End If
65.     close_dir
66.     ReDim _Preserve DirList(DirCount)
67. End Sub
68.  
69. '  Remove comments below and save as direntry.h
70. ' in your QB64.exe folder if you don't have it already
71. '=============================================================
72.  
73. '#include <dirent.h>
74. '#include <sys/stat.h>
75. '#include <unistd.h>
76.  
77. 'const int IS_DIR_FLAG = 1, IS_FILE_FLAG = 2;
78.  
79. 'DIR *pdir;
80. 'struct dirent *next_entry;
81. 'struct stat statbuf1;
82.  
83. 'char current_dir[FILENAME_MAX];
84. '#ifdef QB64_WINDOWS
85. '  #define GetCurrentDir _getcwd
86. '#else
87. '  #define GetCurrentDir getcwd
88. '#endif
89.  
90. 'int load_dir (char * path) {
91. '  struct dirent *pent;
92. '  struct stat statbuf1;
93. '//Open current directory
94. 'pdir = opendir(path);
95. 'if (!pdir) {
96. 'return 0; //Didn't open
97. '}
98. 'return -1;
99. '}
100.  
101. 'int has_next_entry () {
102. '  next_entry = readdir(pdir);
103. '  if (next_entry == NULL) return -1;
104.  
105. '  stat(next_entry->d_name, &statbuf1);
106. '  return strlen(next_entry->d_name);
107. '}
108.  
109. 'void get_next_entry (char * nam, int * flags, int * file_size) {
110. '  strcpy(nam, next_entry->d_name);
111. '  if (S_ISDIR(statbuf1.st_mode)) {
112. '    *flags = IS_DIR_FLAG;
113. '  } else {
114. '    *flags = IS_FILE_FLAG;
115. '  }
116. '  *file_size = statbuf1.st_size;
117. '  return ;
118. '}
119.  
120. 'void close_dir () {
121. '  closedir(pdir);
122. '  pdir = NULL;
123. '  return ;
124. '}
125.  
126. 'int current_dir_length () {
127. '  GetCurrentDir(current_dir, sizeof(current_dir));
128. '  return strlen(current_dir);
129. '}
130.  
131. 'void get_current_dir(char *dir) {
132. '  memcpy(dir, current_dir, strlen(current_dir));
133. '  return ;
134. '}
135.  

No CHDIR involved.  Just calls to our GetDir routine with the path updating as it goes.

[bplus]

Hi Bplus
here my feedback from Windows 8.1 pro

 

as you can see your application found more file than CMD : DIR *.BAS /S

What do I to think about it?

@TempodiBasic

Do you have some Basic files as .bas? Maybe your command only does capital BAS?

[bplus]

And to just see a list of all the BAS files which you have, the following should work:

Code: QB64: [Select]

1. _Title "Count BAS files from a start Directory" ' b+ 2021-11-04
2.  
3. ReDim Shared BasList$(100000) 'store our Bas pathed Files here
4.  
5. ReDim As String Dir(0)
6.  
7. GetAll "D:\", Dir()
8. Open "BasList.txt" For Output As #1
9. For i = 1 To UBound(Dir)
10.     If _DirExists(Dir(i)) Then Color 7 Else Color 15
11.     If _StriCmp(Right$(Dir(i), 4), ".bas") = 0 Then
12.         'it's a BAS file
13.         BasCount = BasCount + 1
14.         BasList$(BasCount) = Dir(i)
15.         Print BasCount, BasList$(BasCount)
16.         Print #1, BasCount, BasList$(BasCount)
17.     End If
18. Next
19. Close
20.  
21.  
22. Sub GetAll (Path As String, DirList() As String)
23.     If _KeyDown(27) Then Exit Sub
24.     ReDim tempDir(0) As String
25.     GetDir Path, tempDir()
26.     For i = 1 To UBound(tempDir)
27.         DirCount = UBound(DirList) + 1
28.         ReDim _Preserve DirList(DirCount)
29.         DirList(DirCount) = tempDir(i)
30.         If _DirExists(tempDir(i)) And Right$(tempDir(i), 1) <> "." Then
31.             DirList(DirCount) = DirList(DirCount) + "\"
32.             GetAll tempDir(i), DirList()
33.         End If
34.  
35.     Next
36. End Sub
37.  
38.  
39. Sub GetDir (SearchDirectory As String, DirList() As String)
40.     Declare CustomType Library ".\direntry"
41.         Function load_dir& (s As String)
42.         Function has_next_entry& ()
43.         Sub close_dir ()
44.         Sub get_next_entry (s As String, flags As Long, file_size As Long)
45.     End Declare
46.  
47.     Dim flags As Long, file_size As Long, DirCount As Integer, FileCount As Integer, length As Long
48.     Dim nam$
49.     DirCount = UBound(DirList)
50.     If Right$(SearchDirectory, 1) = "\" Or Right$(SearchDirectory, 1) = "/" Then SearchDirectory = Left$(SearchDirectory, Len(SearchDirectory) - 1)
51.     If load_dir(SearchDirectory + Chr$(0)) Then
52.         Do
53.             length = has_next_entry
54.             If length > -1 Then
55.                 nam$ = Space$(length)
56.                 get_next_entry nam$, flags, file_size
57.                 If Right$(nam$, 1) <> "." Then
58.                     DirCount = DirCount + 1
59.                     If DirCount > UBound(DirList) Then ReDim _Preserve DirList(UBound(DirList) + 1000)
60.                     DirList(DirCount) = SearchDirectory + "\" + nam$
61.                 End If
62.             End If
63.         Loop Until length = -1
64.     End If
65.     close_dir
66.     ReDim _Preserve DirList(DirCount)
67. End Sub
68.  
69. '  Remove comments below and save as direntry.h
70. ' in your QB64.exe folder if you don't have it already
71. '=============================================================
72.  
73. '#include <dirent.h>
74. '#include <sys/stat.h>
75. '#include <unistd.h>
76.  
77. 'const int IS_DIR_FLAG = 1, IS_FILE_FLAG = 2;
78.  
79. 'DIR *pdir;
80. 'struct dirent *next_entry;
81. 'struct stat statbuf1;
82.  
83. 'char current_dir[FILENAME_MAX];
84. '#ifdef QB64_WINDOWS
85. '  #define GetCurrentDir _getcwd
86. '#else
87. '  #define GetCurrentDir getcwd
88. '#endif
89.  
90. 'int load_dir (char * path) {
91. '  struct dirent *pent;
92. '  struct stat statbuf1;
93. '//Open current directory
94. 'pdir = opendir(path);
95. 'if (!pdir) {
96. 'return 0; //Didn't open
97. '}
98. 'return -1;
99. '}
100.  
101. 'int has_next_entry () {
102. '  next_entry = readdir(pdir);
103. '  if (next_entry == NULL) return -1;
104.  
105. '  stat(next_entry->d_name, &statbuf1);
106. '  return strlen(next_entry->d_name);
107. '}
108.  
109. 'void get_next_entry (char * nam, int * flags, int * file_size) {
110. '  strcpy(nam, next_entry->d_name);
111. '  if (S_ISDIR(statbuf1.st_mode)) {
112. '    *flags = IS_DIR_FLAG;
113. '  } else {
114. '    *flags = IS_FILE_FLAG;
115. '  }
116. '  *file_size = statbuf1.st_size;
117. '  return ;
118. '}
119.  
120. 'void close_dir () {
121. '  closedir(pdir);
122. '  pdir = NULL;
123. '  return ;
124. '}
125.  
126. 'int current_dir_length () {
127. '  GetCurrentDir(current_dir, sizeof(current_dir));
128. '  return strlen(current_dir);
129. '}
130.  
131. 'void get_current_dir(char *dir) {
132. '  memcpy(dir, current_dir, strlen(current_dir));
133. '  return ;
134. '}
135.  

No CHDIR involved.  Just calls to our GetDir routine with the path updating as it goes.

@SMcNeill

Thanks so much for this! Now I have confirmation that I have fixed my stuff. Though obviously I'd prefer to do the whole thing without the ChDir as you have.

There is some slight difference between GetLists from Oh Interpreter where it was working and here in OP that I've yet to pin down. Turns out I was using a Windows Only Technique for TextFetch.

I have 11,843 Bas files on my Desktop alone not 8,000+- I have 3 backup copies at least of all my BAS work files in various QB64 version numbers. I get this number from your code and the one I fixed with Oh Interpreter GetLists AND used a Non Recursive Stack because something dies in recursive version at 8080.

I will slowly get to using your much better version but first I am curious what the heck was the difference in GetLists.

[bplus]

Have to make Steve's solution Best Answer it so much better than recursive!

Just a tiny mod to put the file that it writes in the top directory of your search and count and list.

Code: QB64: [Select]

1. FullPathedDir$ = "C:\Users\marka\Desktop\QB64 work"
2. 'GetAll "D:\", Dir()
3. GetAll FullPathedDir$, Dir()
4. Open FullPathedDir$ + "\Count BasList SMcNeill.txt" For Output As #1 ' <put this in the directory we are doing
5.  

[SMcNeill]

Have to make Steve's solution Best Answer it so much better than recursive!

Just a tiny mod to put the file that it writes in the top directory of your search and count and list.

Code: QB64: [Select]

1. FullPathedDir$ = "C:\Users\marka\Desktop\QB64 work"
2. 'GetAll "D:\", Dir()
3. GetAll FullPathedDir$, Dir()
4. Open FullPathedDir$ + "\Count BasList SMcNeill.txt" For Output As #1 ' <put this in the directory we are doing
5.  

Umm...  But it is recursive.  GetAll calls itself until done...  😂😂

And remember: ReDim As String Dir(0) before making the call to GetAll if you're going to call it again.  Reset your UBOUND to 0.

[SpriggsySpriggs]

I'd like to submit a simple alternative, if I may. I know this isn't recursive but I'm too lazy to do that right now.

Code: QB64 $NOPREFIX: [Select]

1. Option Explicit
2. $NoPrefix
3. $Console:Only
4.  
5. Type FILETIME
6.     As Unsigned Long dwLowDateTime, dwHighDateTime
7. End Type
8.  
9. Type WIN32_FIND_DATA
10.     As Unsigned Long dwFileAttributes
11.     As FILETIME ftCreationTime, ftLastAccessTime, ftLastWriteTime
12.     As Unsigned Long nFileSizeHigh, nFileSizeLow, dwReserved0, dwReserved1
13.     As String * 260 cFileName
14.     As String * 14 cAlternateFileName
15.     As Unsigned Long dwFileType, dwCreatorType
16.     As Unsigned Integer wFinderFlags
17. End Type
18.  
19. Declare CustomType Library
20.     Function FindFirstFile%& (ByVal lpFileName As Offset, Byval lpFindFileData As Offset)
21.     Function FindNextFile& (ByVal hFindFile As Offset, Byval lpFindFileData As Offset)
22.     Sub FindClose (ByVal hFindFile As Offset)
23. End Declare
24.  
25. Dim As Offset find
26. Dim As String searchTerm
27. Dim As WIN32_FIND_DATA attr
28.  
29. searchTerm = ".\*.bas" + Chr$(0)
30.  
31. find = FindFirstFile(Offset(searchTerm), Offset(attr))
32.  
33. If find <> -1 And find <> 0 Then
34.     Do
35.         Print Mid$(attr.cFileName, 1, InStr(attr.cFileName, Chr$(0)) - 1)
36.     Loop While FindNextFile(find, Offset(attr))
37. End If
38.  
39. FindClose find

[SpriggsySpriggs]

@TempodiBasic

Do you have some Basic files as .bas? Maybe your command only does capital BAS?

If I remember correctly, Steve had a bug in his code that would falsely identify some directories as files or vice-versa. Maybe that's why you have a difference in number of files found between his code and CMD.