AndyNigmatec
в новомодных виндах adir таки полезет (увидит) папки читать которые не сможет (я про локальные) ...

of63
ADIR папок без доступа "Листинг" не видит

lcDir='C:\Users\All Users\Microsoft\WwanSvc\'
ADIR(a1,'*','AHRSD',1)
DISPLAY MEMORY LIKE a1

A1                                                  Pub                            A            
   (    1,    1)                                                                   C            "."
   (    1,    2)                                                                   N            0                                                  (              0.00000000)
   (    1,    3)                                                                   D            14.07.2009 
   (    1,    4)                                                                   C            " 9:32:40"
   (    1,    5)                                                                   C            "...HD"
   (    2,    1)                                                                   C            ".."
   (    2,    2)                                                                   N            0                                                  (              0.00000000)
   (    2,    3)                                                                   D            14.07.2009 
   (    2,    4)                                                                   C            " 9:32:40"
   (    2,    5)                                                                   C            "...HD"
   (    3,    1)                                                                   C            "Profiles"
   (    3,    2)                                                                   N            0                                                  (              0.00000000)
   (    3,    3)                                                                   D            14.07.2009 
   (    3,    4)                                                                   C            " 9:32:40"
   (    3,    5)                                                                   C            "...HD"

of63
Ограничение на длину имени файла в винде раньше сработает (ок. 255 символов), если только не делать однобуквенных директориев 128 шт

akvvohinc

of63
Ограничение на длину имени файла в винде раньше сработает (ок. 255 символов), если только не делать однобуквенных директориев 128 шт

Скорее не в винде, а в Фоксе.

В винде я не помню ограничения на глубину вложенности папок. Вопрос лишь в том, что далеко не каждая программа сможет работать с файлом на такой глубине.

ry
Но ведь при этом общую длину имени файла вместе с путем WinAPI ограничивает до 260 символов, из них 1 символ конца строки плюс 3 символа для обозначения диска (C:\) плюс разделители уровней каталогов.

ry
Так что получается, что именно ограничения Windows не позволяют нормально работать с файлами и папками определенного уровня вложенности

ry
К таким файлам можно в теории получать доступ при помощи префикса \\?\, но на практике не все программы это умеют.

AndyNigmatec
таки Profiles он видит )))
а при попытке установить SET DEFAULT на эту Profiles - получаем ошибку 202 - "Invalid path or file name."

Igor Korolyov
Для получения списка файлов никакие SET DEFAULT не требуются.

ry
[на длину имени файла тоже ограничения немаленькие - длина имени файла ограничена 255 символами, а длина пути может быть до 32К

VeterVFP
Но как получить такой список, если в именах папок тоже есть маска?

* Есть VFP\Tools\Filer\Filer.dll    - там хороший поиск, в том числе это

* Гибкий поиск через WMI (работает долго):    www.script-coding.com
*   всех папок на всех дисках, в название которых входит слово "Документы" с маленькой или с большой буквы
*   colFolders = objService.ExecQuery("SELECT * FROM  Win32_Directory WHERE FileName LIKE '%[Дд]окументы%'")

@echo off
rem где искать
set RootP=D:\VFP
rem маска имени папки - конкретное имя конкретной папки без вложений, то есть так не катит: ?oo*\bb*\
set DMask=?oo*
rem маска файла
set FMask=*.v?x
rem куда записать результат
set res=FindFiles.tmp

if exist %res%    del %res%
for /d /r %RootP% %%I in (%DMask%) do    call :FindFiles "%%I"
exit/b

:FindFiles
for /r %1 %%J in (%FMask%) do    echo %%J>>%res%

D:\VFP\Toolbox\_toolbox.vcx
D:\VFP\Tools\HexEdit\hexedit.vcx
D:\VFP\Tools\MSAA\highlight.vcx
D:\VFP\Tools\Test\aautils.vcx
D:\VFP\Wizards\Template\Books\Libs\books.vcx
D:\VFP\Wizards\Template\Books\Libs\путь Tools с пробелами\файл с пробелами.vcx
D:\VFP\Wizards\Template\Books\Libs\путь Tools с пробелами\файл с пробелами.vcx