Walk a directory/Recursively: Difference between revisions
Content added Content deleted
({{omit from|ZX Spectrum Basic}}) |
(Added BBC BASIC) |
||
Line 93: | Line 93: | ||
{{works with|Windows NT|4 or later (includes Windows XP and onward)}} |
{{works with|Windows NT|4 or later (includes Windows XP and onward)}} |
||
<lang dos>FOR /R C:\Windows\System32 %F IN (*.DLL) DO ECHO "%F"</lang> |
<lang dos>FOR /R C:\Windows\System32 %F IN (*.DLL) DO ECHO "%F"</lang> |
||
=={{header|BBC BASIC}}== |
|||
{{works with|BBC BASIC for Windows}} |
|||
<lang bbcbasic> directory$ = "C:\Windows\" |
|||
pattern$ = "*.chm" |
|||
PROClisttree(directory$, pattern$) |
|||
END |
|||
DEF PROClisttree(dir$, filter$) |
|||
LOCAL dir%, sh%, res% |
|||
DIM dir% LOCAL 317 |
|||
IF RIGHT$(dir$) <> "\" IF RIGHT$(dir$) <> "/" dir$ += "\" |
|||
SYS "FindFirstFile", dir$ + filter$, dir% TO sh% |
|||
IF sh% <> -1 THEN |
|||
REPEAT |
|||
IF (!dir% AND 16) = 0 PRINT dir$ + $$(dir%+44) |
|||
SYS "FindNextFile", sh%, dir% TO res% |
|||
UNTIL res% = 0 |
|||
SYS "FindClose", sh% |
|||
ENDIF |
|||
SYS "FindFirstFile", dir$ + "*", dir% TO sh% |
|||
IF sh% <> -1 THEN |
|||
REPEAT |
|||
IF (!dir% AND 16) IF dir%?44 <> &2E THEN |
|||
PROClisttree(dir$ + $$(dir%+44) + "\", filter$) |
|||
ENDIF |
|||
SYS "FindNextFile", sh%, dir% TO res% |
|||
UNTIL res% = 0 |
|||
SYS "FindClose", sh% |
|||
ENDIF |
|||
ENDPROC</lang> |
|||
=={{header|C}}== |
=={{header|C}}== |