Author Topic: Development of a program for automatic search for music and movies  (Read 1458 times)

Offline Petr

  • Forum Resident
  • Posts: 1351
  • The best code is the DNA of the hops.
Re: Development of a program for automatic search for music and movies
« Reply #15 on: June 25, 2020, 12:22:07 PM »
Definitely yes, but this simple foundation would have to work first ...

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #16 on: June 25, 2020, 12:33:12 PM »
@Petr

:) so again I ask, "Are you going for Cross Platform or Windows only."

 Windows only will have kick butt utilities for TREE that you might research but Cross Platform might be nice programming challenge. ;-))

The deciding factor, I think, is if you intend to use Windows only apps for playing these files we are digging around for?
« Last Edit: June 25, 2020, 12:34:52 PM by bplus »

Offline SpriggsySpriggs

  • Seasoned Forum Regular
  • Posts: 259
  • DIM JohnSilver AS LONG, yarn AS STRING
    • My GitHub
Re: Development of a program for automatic search for music and movies
« Reply #17 on: June 25, 2020, 12:38:39 PM »
I know this is probably not an answer that anyone wants to hear but PowerShell is excellent for many things. I've been able to make WPF Message Boxes and Open/Save file dialogs in it with great ease. You might consider writing a PowerShell script that you can call from inside your program and check for exit codes. I love using PowerShell.

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #18 on: June 25, 2020, 12:42:31 PM »
Yeah, I am thinking Shell or Powershell, why reinvent the wheel, if Windows only.
« Last Edit: June 25, 2020, 12:43:38 PM by bplus »

Offline SpriggsySpriggs

  • Seasoned Forum Regular
  • Posts: 259
  • DIM JohnSilver AS LONG, yarn AS STRING
    • My GitHub
Re: Development of a program for automatic search for music and movies
« Reply #19 on: June 25, 2020, 12:47:43 PM »
Yeah, I am thinking Shell or Powershell, why reinvent the wheel, if Windows only.
Well there is even a cross-platform PowerShell now :)

Offline Petr

  • Forum Resident
  • Posts: 1351
  • The best code is the DNA of the hops.
Re: Development of a program for automatic search for music and movies
« Reply #20 on: June 25, 2020, 01:27:15 PM »
BPlus, let's do this for windows first. When it's done, I can study on the Internet which Linux commands can be useful for the same purpose and then add functionality for Linux. But still - why it works not? I have big head from it...

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #21 on: June 25, 2020, 02:05:42 PM »
BPlus, let's do this for windows first. When it's done, I can study on the Internet which Linux commands can be useful for the same purpose and then add functionality for Linux. But still - why it works not? I have big head from it...

;-)) "Big heads" love company.

I will look again when I finish errands.

Quote
Well there is even a cross-platform PowerShell now :)

Well then another one to learn. :)
« Last Edit: June 25, 2020, 02:08:46 PM by bplus »

Offline SpriggsySpriggs

  • Seasoned Forum Regular
  • Posts: 259
  • DIM JohnSilver AS LONG, yarn AS STRING
    • My GitHub
Re: Development of a program for automatic search for music and movies
« Reply #22 on: June 25, 2020, 02:19:39 PM »
This displays a recursive list of every subdirectory from a given path. Just read in the file results into your program and enjoy!
Code: QB64: [Select]
  1. SHELL _HIDE "PowerShell Get-ChildItem -Path \" + CHR$(34) + Path$ + "\" + CHR$(34) + " -Recurse -Directory -Force -ErrorAction SilentlyContinue | Select-Object -ExpandProperty FullName | Format-Table -AutoSize > directorylist.txt"
« Last Edit: June 25, 2020, 02:28:31 PM by SpriggsySpriggs »

Offline SpriggsySpriggs

  • Seasoned Forum Regular
  • Posts: 259
  • DIM JohnSilver AS LONG, yarn AS STRING
    • My GitHub
Re: Development of a program for automatic search for music and movies
« Reply #23 on: June 25, 2020, 02:26:06 PM »
BPlus, let's do this for windows first. When it's done, I can study on the Internet which Linux commands can be useful for the same purpose and then add functionality for Linux.
For Linux, according to the internet:
Code: QB64: [Select]
  1. SHELL "find " + CHR$(34) + Path$ + CHR$(34) + " -path */* > directory.txt"

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #24 on: June 25, 2020, 05:08:53 PM »
Hi @Petr

Couldn't figure out what you were doing when adding dirs from s to G so I did it my own way and now not a bunch of empty fills.

This looks better to me but not sure it ends correctly:
Code: QB64: [Select]
  1.     FUNCTION load_dir& (s AS STRING)
  2.     FUNCTION has_next_entry& ()
  3.     SUB close_dir ()
  4.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  5.  
  6.  
  7. SCREEN _NEWIMAGE(1280, 740, 32) '<<<<<<<<<<<<<  let's get bigger screen!
  8. _DELAY .25
  9.  
  10.  
  11.  
  12.  
  13. TYPE GlobalDir
  14.     Level AS INTEGER
  15.     Path AS STRING
  16.  
  17. REDIM SHARED G(0) AS GlobalDir
  18. REDIM Begin(0) AS STRING
  19.  
  20. GetDIRList _CWD$, Begin()
  21. SA Begin()
  22. AddDirsToGlobal Begin(), 1
  23. ShowGlobal
  24. DIM s
  25. FOR s = 0 TO UBOUND(begin)
  26.     'PRINT Begin(S)
  27.     SLEEP
  28.     CHDIR Begin(s)
  29.     PRINT "Current path: "; _CWD$
  30.     REDIM D(0) AS STRING
  31.     GetDIRList _CWD$, D()
  32.     SA D()
  33.     AddDirsToGlobal D(), 2 '                 comment this
  34.     CLS
  35.  
  36.     ShowGlobal ' <<<<<<<<<<<<<<<<<<< lets look at Global at each loop iteration
  37.  
  38.  
  39.     CHDIR ".."
  40.     PRINT "Current path: "; _CWD$
  41.     PRINT "Global size:"; UBOUND(g) + 1
  42.  
  43. ShowGlobal
  44.  
  45.  
  46.  
  47.  
  48. SUB SA (a() AS STRING)
  49.     DIM s
  50.     FOR s = LBOUND(a) TO UBOUND(a)
  51.         PRINT "Array List:"; a(s); " array size:"; UBOUND(a) + 1
  52.         SLEEP
  53.     NEXT
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60. SUB ShowGlobal
  61.     PRINT "Start of next Golbal: keep pressing  any again until see End of global and then press 1 more time"
  62.     DIM s
  63.     FOR s = 0 TO UBOUND(g)
  64.         PRINT G(s).Path, " Level: "; G(s).Level
  65.         SLEEP
  66.     NEXT
  67.     PRINT "End of Global, press spacebar again..."
  68.     SLEEP
  69.  
  70.  
  71.  
  72.  
  73. SUB AddDirsToGlobal (s() AS STRING, level AS INTEGER)
  74.     IF UBOUND(s) = 0 THEN EXIT SUB
  75.     PRINT "To global array added: "; UBOUND(g); "+"; UBOUND(s) + 1
  76.     DIM a
  77.     FOR a = LBOUND(s) TO UBOUND(s)
  78.         sAppend G(), s(a), level
  79.     NEXT
  80.  
  81. SUB sAppend (arr() AS GlobalDir, addItem$, addlevel)
  82.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS GlobalDir
  83.     arr(UBOUND(arr)).Path = addItem$
  84.     arr(UBOUND(arr)).Level = addlevel
  85.  
  86.  
  87.  
  88. 'my modification just for directory names:
  89. SUB GetDIRList (SearchDirectory AS STRING, DirList() AS STRING) 'opravena verze
  90.     REDIM DirList(0) AS STRING
  91.     CONST IS_DIR = 1
  92.     DIM flags AS LONG, file_size AS LONG, DirCount, length, nam$, placeIt
  93.     DirCount = 0
  94.     IF load_dir(SearchDirectory) THEN
  95.         DO
  96.             length = has_next_entry
  97.             IF length > -1 THEN
  98.                 nam$ = SPACE$(length)
  99.                 get_next_entry nam$, flags, file_size
  100.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  101.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  102.                     DirList(DirCount) = _CWD$ + "\" + nam$
  103.                     DirCount = DirCount + 1
  104.                 END IF
  105.             END IF
  106.         LOOP UNTIL length = -1
  107.  
  108.  
  109.         IF RIGHT$(DirList(0), 1) = "." AND RIGHT$(DirList(1), 2) = ".." THEN
  110.             DirCount = DirCount - 3
  111.             REDIM Dirl(DirCount) AS STRING
  112.             FOR placeIt = 0 TO DirCount
  113.                 Dirl(placeIt) = DirList(placeIt + 2)
  114.             NEXT
  115.             REDIM DirList(DirCount) AS STRING
  116.             FOR placeIt = 0 TO DirCount
  117.                 DirList(placeIt) = Dirl(placeIt)
  118.             NEXT
  119.             REDIM Dirl(0)
  120.         ELSE
  121.             REDIM _PRESERVE DirList(DirCount - 1)
  122.         END IF
  123.     ELSE
  124.     END IF
  125.     close_dir
  126.  
  127.  
  128.  
  129.  

Offline SpriggsySpriggs

  • Seasoned Forum Regular
  • Posts: 259
  • DIM JohnSilver AS LONG, yarn AS STRING
    • My GitHub
Re: Development of a program for automatic search for music and movies
« Reply #25 on: June 25, 2020, 11:21:24 PM »
A slight change to my original SHELL suggestion:
Code: QB64: [Select]
  1. Path$ = "C:\Users\Zachary\Desktop\QB64 x64"
  2. SHELL _HIDE "PowerShell Get-ChildItem -Path \" + CHR$(34) + Path$ + "\" + CHR$(34) + " -Recurse -Directory -Force -ErrorAction SilentlyContinue | Select-Object -ExpandProperty FullName | Format-Table -AutoSize | Out-File -FilePath directorylist.txt -Encoding ASCII"
  3. DIRECTORIES = FREEFILE
  4. n = 0
  5. DIM Dirs(n) AS STRING
  6. OPEN "directorylist.txt" FOR BINARY AS #DIRECTORIES
  7.     LINE INPUT #DIRECTORIES, Directory$
  8.     Directory$ = LTRIM$(RTRIM$(STRING.Remove(Directory$, CHR$(13))))
  9.     n = n + 1
  10.     REDIM _PRESERVE Dirs(n)
  11.     Dirs(n) = Directory$
  12. LOOP UNTIL EOF(DIRECTORIES)
  13. FOR i = 1 TO UBOUND(Dirs)
  14.     PRINT Dirs(i)
  15.     IF _DIREXISTS(Dirs(i)) THEN
  16.         PRINT "LOCATED"
  17.         IF LEFT$(Dirs(i), _INSTRREV(Dirs(i), "\") - 1) <> Path$ THEN 'i <> 1 OR
  18.             FOR k = 1 TO UBOUND(Dirs)
  19.                 IF LEFT$(Dirs(i), _INSTRREV(Dirs(i), "\") - 1) = Dirs(k) THEN
  20.                     PRINT "Subdirectory of "; Dirs(k)
  21.                 END IF
  22.             NEXT
  23.         ELSE
  24.             PRINT "Subdirectory of "; Path$
  25.         END IF
  26.     END IF
  27.  
  28. FUNCTION STRING.Remove$ (a AS STRING, b AS STRING)
  29.     DIM c AS STRING
  30.     c = ""
  31.     j = INSTR(a, b)
  32.     IF j > 0 THEN
  33.         r$ = LEFT$(a, j - 1) + c + STRING.Remove(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b)
  34.     ELSE
  35.         r$ = a
  36.     END IF
  37.     STRING.Remove = r$
If you don't add the -Encoding ASCII then qb64 cannot locate the directories because of hidden characters.
Here is a screenshot showing the program running and using _DIREXISTS to make sure it can find the directories retrieved from PowerShell.
 

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #26 on: June 26, 2020, 01:02:27 AM »
@Petr

This is a cleaner version of reply #24,
https://www.qb64.org/forum/index.php?topic=2742.msg119796#msg119796
upper bounds of arrays reflect actual item counts.

I am setting this up for a recursive TREE build.

Code: QB64: [Select]
  1.     FUNCTION load_dir& (s AS STRING)
  2.     FUNCTION has_next_entry& ()
  3.     SUB close_dir ()
  4.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  5.  
  6. REDIM SHARED G(0) AS STRING '<<<<<<<<<<<<<<<<<<<<<< G(0) will remain empty
  7.  
  8. SCREEN _NEWIMAGE(1280, 740, 32) '<<<<<<<<<<<<<  let's get bigger screen!
  9. _DELAY .25
  10.  
  11. REDIM Begin(0) AS STRING, D(0) AS STRING, w$, s
  12.  
  13. GetSubDirs _CWD$, Begin()
  14. SA Begin()
  15. AddDirsToGlobal Begin()
  16. ShowGlobal
  17. FOR s = 1 TO UBOUND(begin)
  18.     PRINT "About to change dir to: "; Begin(s)
  19.     INPUT "Enter to continue... "; w$
  20.     CHDIR Begin(s)
  21.     PRINT "Current path: "; _CWD$
  22.     GetSubDirs _CWD$, D()
  23.     SA D()
  24.     AddDirsToGlobal D()
  25.     ShowGlobal
  26. PRINT "Last Global List: press any... "
  27. ShowGlobal
  28.  
  29. SUB SA (a() AS STRING)
  30.     DIM s
  31.     PRINT "Start of SubDirs List: press any until End SubDirs."
  32.     SLEEP
  33.     FOR s = 1 TO UBOUND(a)
  34.         PRINT "Array List:"; a(s); " array size:"; UBOUND(a)
  35.         SLEEP
  36.     NEXT
  37.     PRINT "End of SubDirs List: press any..."
  38.     SLEEP
  39.  
  40. SUB ShowGlobal
  41.     PRINT "Start of next Golbal: keep pressing  any again until see End of global and then press 1 more time"
  42.     DIM s
  43.     FOR s = 1 TO UBOUND(g)
  44.         PRINT G(s)
  45.         SLEEP
  46.     NEXT
  47.     PRINT "Global size:"; UBOUND(g)
  48.     PRINT "End of Global List, size now:"; UBOUND(g); "   press any..."
  49.     SLEEP
  50.  
  51. SUB AddDirsToGlobal (s() AS STRING)
  52.     IF UBOUND(s) = 0 THEN EXIT SUB
  53.     DIM a
  54.     FOR a = 1 TO UBOUND(s)
  55.         sAppend G(), s(a)
  56.     NEXT
  57.     PRINT "Ubound of Global Array after addition: "; UBOUND(g); "  press any..."
  58.     SLEEP
  59.  
  60. SUB sAppend (arr() AS STRING, addItem$)
  61.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS STRING
  62.     arr(UBOUND(arr)) = addItem$
  63.  
  64. SUB GetSubDirs (SearchDirectory AS STRING, DirList() AS STRING)
  65.     REDIM DirList(0) AS STRING
  66.     CONST IS_DIR = 1
  67.     DIM flags AS LONG, file_size AS LONG, DirCount, length, nam$
  68.     REDIM _PRESERVE DirList(100)
  69.     IF load_dir(SearchDirectory) THEN
  70.         DO
  71.             length = has_next_entry
  72.             IF length > -1 THEN
  73.                 nam$ = SPACE$(length)
  74.                 get_next_entry nam$, flags, file_size
  75.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  76.                     IF RIGHT$(nam$, 1) <> "." AND RIGHT$(nam$, 2) <> ".." THEN
  77.                         DirCount = DirCount + 1
  78.                         IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  79.                         DirList(DirCount) = _CWD$ + "\" + nam$
  80.                     END IF
  81.                 END IF
  82.             END IF
  83.         LOOP UNTIL length = -1
  84.     END IF
  85.     close_dir
  86.     REDIM _PRESERVE DirList(DirCount)
  87.  

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #27 on: June 26, 2020, 02:53:15 AM »
Well it almost works:
Code: QB64: [Select]
  1. OPTION _EXPLICIT 'Tree builder recursive.bas  b+ Petr 2020-06-26
  2. DEFLNG A-Z
  3.     FUNCTION load_dir& (s AS STRING)
  4.     FUNCTION has_next_entry& ()
  5.     SUB close_dir ()
  6.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  7.  
  8. REDIM SHARED Tree(0) AS STRING '<<<<<<<<<<<<<<<<<<<<<< G(0) will remain empty
  9.  
  10. SCREEN _NEWIMAGE(1280, 740, 32) '<<<<<<<<<<<<<  let's get bigger screen!
  11. _DELAY .25
  12. DIM cd$, i, w$
  13.  
  14. cd$ = _CWD$   'testing in QB64 folder
  15. MakeTree cd$
  16. FOR i = 1 TO UBOUND(Tree) 'show tree
  17.     PRINT _TRIM$(STR$(i)); ": "; Tree(i)
  18.     IF i MOD 40 = 0 THEN INPUT "Press enter to continue... "; w$: CLS
  19.  
  20. SUB sAppend (arr() AS STRING, addItem$)
  21.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS STRING
  22.     arr(UBOUND(arr)) = addItem$
  23.  
  24. SUB GetSubDirs (SearchDirectory AS STRING, DirList() AS STRING)
  25.     REDIM DirList(0) AS STRING
  26.     CONST IS_DIR = 1
  27.     DIM flags AS LONG, file_size AS LONG, DirCount, length, nam$
  28.     REDIM _PRESERVE DirList(100)
  29.     IF load_dir(SearchDirectory) THEN
  30.         DO
  31.             length = has_next_entry
  32.             IF length > -1 THEN
  33.                 nam$ = SPACE$(length)
  34.                 get_next_entry nam$, flags, file_size
  35.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  36.                     IF RIGHT$(nam$, 1) <> "." AND RIGHT$(nam$, 2) <> ".." THEN
  37.                         DirCount = DirCount + 1
  38.                         IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  39.                         DirList(DirCount) = _CWD$ + "\" + nam$
  40.                     END IF
  41.                 END IF
  42.             END IF
  43.         LOOP UNTIL length = -1
  44.     END IF
  45.     close_dir
  46.     REDIM _PRESERVE DirList(DirCount)
  47.  
  48. SUB MakeTree (startDir AS STRING)
  49.     DIM i
  50.     REDIM D(0) AS STRING
  51.     GetSubDirs startDir, D()
  52.     IF UBOUND(D) THEN
  53.         FOR i = 1 TO UBOUND(D)
  54.             sAppend Tree(), D(i)
  55.             CHDIR D(i)
  56.             MakeTree D(i)
  57.         NEXT
  58.     END IF
  59.  
  60.  

I start in QB64 folder, looks like it gets pretty deep into some directories but not \programs with one sub folder and then more in it. I am only getting 125 directories.

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 2584
    • Steve’s QB64 Archive Forum
Re: Development of a program for automatic search for music and movies
« Reply #28 on: June 26, 2020, 10:19:57 AM »
Try this version:

Code: QB64: [Select]
  1. OPTION _EXPLICIT 'Tree builder recursive.bas  b+ Petr 2020-06-26
  2. DEFLNG A-Z
  3.     FUNCTION load_dir& (s AS STRING)
  4.     FUNCTION has_next_entry& ()
  5.     SUB close_dir ()
  6.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
  7.  
  8. REDIM SHARED Tree(0) AS STRING '<<<<<<<<<<<<<<<<<<<<<< G(0) will remain empty
  9.  
  10. SCREEN _NEWIMAGE(1280, 740, 32) '<<<<<<<<<<<<<  let's get bigger screen!
  11. _DELAY .25
  12. DIM cd$, i, w$
  13.  
  14. cd$ = _CWD$ 'testing in QB64 folder
  15. MakeTree cd$
  16. FOR i = 1 TO UBOUND(Tree) 'show tree
  17.     PRINT _TRIM$(STR$(i)); ": "; Tree(i)
  18.     IF i MOD 40 = 0 THEN INPUT "Press enter to continue... "; w$: CLS
  19.  
  20. SUB sAppend (arr() AS STRING, addItem$)
  21.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS STRING
  22.     arr(UBOUND(arr)) = addItem$
  23.  
  24. SUB GetSubDirs (SearchDirectory AS STRING, DirList() AS STRING)
  25.     REDIM DirList(0) AS STRING
  26.     CONST IS_DIR = 1
  27.     DIM flags AS LONG, file_size AS LONG, DirCount, length, nam$
  28.     REDIM _PRESERVE DirList(100)
  29.     IF load_dir(SearchDirectory) THEN
  30.         DO
  31.             length = has_next_entry
  32.             IF length > -1 THEN
  33.                 nam$ = SPACE$(length)
  34.                 get_next_entry nam$, flags, file_size
  35.                 IF (flags AND IS_DIR) OR _DIREXISTS(SearchDirectory + nam$) THEN
  36.                     IF RIGHT$(nam$, 1) <> "." AND RIGHT$(nam$, 2) <> ".." THEN
  37.                         DirCount = DirCount + 1
  38.                         IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
  39.                         DirList(DirCount) = SearchDirectory + "\" + nam$
  40.                     END IF
  41.                 END IF
  42.             END IF
  43.         LOOP UNTIL length = -1
  44.     END IF
  45.     close_dir
  46.     REDIM _PRESERVE DirList(DirCount)
  47.  
  48. SUB MakeTree (startDir AS STRING)
  49.     DIM i
  50.     REDIM D(0) AS STRING
  51.     GetSubDirs startDir, D()
  52.     IF UBOUND(D) THEN
  53.         FOR i = 1 TO UBOUND(D)
  54.             sAppend Tree(), D(i)
  55.             CHDIR D(i)
  56.             MakeTree D(i)
  57.         NEXT
  58.     END IF
  59.  
  60.  
  61.  

Edit:  Something still seems off here.  I'm thinking it's because you're not building the directories with the "\" as the last character.

Print the results as you go, and you'll see things such as :  C:\QB64\internal.. -- this should instead be C:\QB64\internal\..   Save the directories with that \ on the end of them, and it seems to work much better.

I'd dig deeper into this, but my stupid mouse has died on me, and it's a total PITA to try and work without one.  I'll make a trip to the store later today for a set of batteries (wherever my wife has them hidden in the house is beyond my ability to snoop and find), and once I get it back up and going, I'll delve into this once again.  ;)
« Last Edit: June 26, 2020, 10:38:07 AM by SMcNeill »
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline bplus

  • Forum Resident
  • Posts: 4564
  • B+ nots
Re: Development of a program for automatic search for music and movies
« Reply #29 on: June 26, 2020, 12:01:59 PM »
Hi @SMcNeill

I see one line changed mine:
DirList(DirCount) = _CWD$ + "\" + nam$

Yours:
DirList(DirCount) = SearchDirectory + "\" + nam$

Am I missing any others?

Same exact results. 125 Sub-Directories.

Quote
I'd dig deeper into this,
It is cool problem ;-))
« Last Edit: June 26, 2020, 12:05:21 PM by bplus »