Локшин МаркЧего вы тут какой-то балаган развели? Необходимую ссылку я уже дал. Методы с запуском внешних программ - сродни чесать правой пяткой левое ухо.
+1
Приведу пример из своего старого проекта
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
public function integer of_listdir (readonly string as_root, ref string as_dirs[], ref string as_files[]);
n_cst_kernel32 k32
n_cst_kernel32`win32_find_dataa finddata
String ls_dirs[], ls_files[]
long h
Long li_f = 0 , li_d = 0
as_dirs[] = ls_dirs[]
as_files[] = ls_files[]
h = k32.FindFirstFile(as_root, finddata)
If h <= 0 Then Return - 1
Do
If finddata.cfilename = "." or finddata.cfilename = ".." Then Continue
If of_GetBit(finddata.dwfileattributes, 4 ) = 1 Then
li_d ++
as_dirs[li_d] = finddata.cfilename
Else
li_f ++
as_files[li_f] = finddata.cfilename
End IF
Loop While k32.FindNextFile(h, finddata)
k32.FindClose(h)
Return 1
end function
public function integer of_getbit (ulong al_number, integer ai_bit);
Return Mod(Truncate(al_number/( 2 ^ai_bit), 0 ), 2 )
end function
type win32_find_dataa from structure
unsignedlong dwfileattributes
filetime ftcreationtime
filetime ftlastaccesstime
filetime ftlastwritetime
unsignedlong nfilesizehigh
unsignedlong nfilesizelow
unsignedlong dwreserved0
unsignedlong dwreserved1
character cfilename[ 260 ]
character calternatefilename[ 14 ]
end type
А дальше, написать рекурсивную ф-ю, вызывающую эту начиная с корневой папки.
Например такая ф-я создает дерево меню на основе структуры папок и находящихся в них файлах с определенным расширением
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
public function integer of_builduserregistrymenu (readonly string as_rootdir, ref menu am_menu);m_registry_item m
menu m_sub
am_menu = Create menu
n_util u
String ls_dirs[], ls_files[]
Long li_i, li_in, li_dirs = 0 , li_files = 0
If u.of_ListDir(as_rootdir + "\*.*", ls_dirs[], ls_files[]) > 0 Then
li_in = UpperBound(ls_dirs[])
For li_i = 1 To li_in
If of_BuildUserRegistryMenu(as_rootdir + "\" + ls_dirs[li_i],m_sub ) > 0 Then
li_dirs ++
am_menu.item[li_dirs] = m_sub//.item[ 1 ]
am_menu.item[li_dirs].Text = ls_dirs[li_i]
End IF
Next
li_in = UpperBound(ls_files[])
If li_dirs> 0 and li_in > 0 Then
m_sub = Create menu
li_dirs ++
am_menu.item[li_dirs] = m_sub//.item[ 1 ].item[ 1 ]
m_sub.Text = "-"
End IF
li_files = li_dirs
For li_i = 1 To li_in
If Lower(Right(ls_files[li_i], 4 )) = ".rgd" Then
li_files ++
m = Create m_registry_item
am_menu.item[li_files] = m.item[ 1 ].item[ 1 ]
am_menu.item[li_files].Text = Left(ls_files[li_i], Len(ls_files[li_i]) - 4 )
am_menu.item[li_files].Tag = as_rootdir + "\" +ls_files[li_i]
End IF
Next
End IF
If li_files > 0 Then
Return 1
Else
Return - 1
End IF
end function
В случае с исходной задачей, в рекурсивную ф-ю нужно кроме начальной папки передавать массив строк по ссылке, куда складывать все найденные файлы
