Прохожий_111 wrote:

> невизуальные объекты, позволяющие получить спиок файлов из директории?

Объекты... субъекты... будь проще, и люди к тебе потянутся... потными
волосатыми ручонками ...

------------------------------------------------------------
$PBExportHeader$filetime.srs
global type FILETIME from structure
ulong dwLowDateTime
ulong dwHighDateTime
end type
------------------------------------------------------------

------------------------------------------------------------
$PBExportHeader$win32_find_data.srs
global type win32_find_data 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
------------------------------------------------------------

------------------------------------------------------------
Long lFindHandle
win32_find_data stFindFileData

lFindHandle = FindFirstFile('c:\dir\*.*', stFindFileData)
if lFindHandle > 0 then
DO
// здесь замучим животное
LOOP WHILE FindNextFile(lFindHandle, stFindFileData)
end if
FindClose(lFindHandle)
------------------------------------------------------------
Posted via ActualForum NNTP Server 1.3

ЗоринАндрей wrote:

> а где объявления local external ?

А вот:

Function ulong FindFirstFile (string lpFileName, ref WIN32_FIND_DATA
lpFindFileData) Library "KERNEL32.DLL" Alias for "FindFirstFileA"

Function boolean FindNextFile (ulong hFindFile, ref WIN32_FIND_DATA
lpFindFileData) Library "KERNEL32.DLL" Alias for "FindNextFileA"

Function ulong FindClose(ulong hFindFile) Library "KERNEL32.DLL" Alias
for "FindClose"

Для PB10+, наверное, стоит использовать FindFirstFileW и FindNextFileW.
Posted via ActualForum NNTP Server 1.3