![]() |
|
#1
|
||||
|
||||
![]() Народ. Нужна помошь , забыл как узнать все файлы в папке.
Путь "C:\Games\" Мне нужно 2 способа , Включая под папки и не включая их ) P.S. Я щяс на DS заходить не могу много пишите на мыло плз mailto:crazydog95@mail.ru?subject=DS_Path [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user ![]()
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#2
|
||||
|
||||
![]() разберись с этим примером и модифицируй его под себя - http://decoding.narod.ru/faq/files/files001.html#006
|
#3
|
||||
|
||||
![]() Код:
function FilesInDir(sMask, sDirPath: String; var iFilesCount: Integer; var saFound: TStrings; bRecurse: Boolean = True): Integer; var sr: TSearchRec; begin try if FindFirst(sDirPath + sMask, faAnyFile, sr) = 0 then begin repeat if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr and faDirectory = 0) then begin Inc(iFilesCount); if saFound <> nil then begin if saFound.IndexOf(sDirPath + sr.Name) < 0 then saFound.Add(sDirPath + sr.Name); end; end else begin if (sr.Name <> '.') and (sr.Name <> '..') and (bRecurse) then FilesInDir(sMask,sDirPath + sr.name + '\',iFilesCount,saFound,bRecurse); end; until FindNext(sr) <> 0; end; FindClose(sr); except Result := -1; end; end; sMask - маска, напр. *.* sDirPath - путь до папки var iFilesCount - кол-во найденных файлов; var saFound - список путей до найденных фалов; bRecurse: включая подкаталоги или нет THE CRACKER IS OUT THERE Последний раз редактировалось 4kusNick, 26.07.2007 в 18:36. |
#4
|
|||
|
|||
![]() можно ли провернуть то же самое с FTP?
т.е. прочитать. весь этот список файлов со сложенными папками? |