FileListBoxItem

Синтаксис

Windows: sub FileListBoxItem(ByVal gadget As long, ByRef sDirPlusMask As String, ByVal iAttribut As long=DDL_READWRITE or DDL_READONLY Or DDL_HIDDEN or DDL_SYSTEM or DDL_DIRECTORY)

Linux: sub FileListBoxItem(gadget as Long, sDirPlusMask as string, iAttribut as Long = fbNormal or fbDirectory)

Описание

Функция позволяет заносить файлы из заданной директории в ListBox, так же для Windows может заносить все имеющиеся диски в системе

Параметры

gadget - номер гаджета

sDirPlusMask - Путь к файлу(ам) + маска для файла(ов)

iAttribut - атрибуты файлов, которые следует заносить в ListBox:

Для Windows:

DDL_ARCHIVE - Включает архивные файлы.
DDL_DIRECTORY - Включает подкаталоги. Подкаталоги заключаются в квадратные скобки([ ]).
DDL_DRIVES - Включает диски, перечисляются в виде [-X-], где X это буква диска.
DDL_EXCLUSIVE - Включает в себя только файлы с указанными атрибутами.
По умолчанию для чтения и записи файлов указаны даже если DDL_READWRITE не указан.
DDL_HIDDEN - Включает скрытые файлы.
DDL_READONLY - Включает файлы с атрибутом только для чтения.
DDL_READWRITE - Включает файлы для чтения и записи без каких-либо дополнительных атрибутов.
DDL_SYSTEM - Включает системные файлы.

Для Linux:
(более подробно о всех этих флагах можно прочитать в справке freebasic в описании функции DIR)
FBREADONLY - файлы только для чтения
FBHIDDEN - скрытые файлы
FBSYSTEM - системные файлы
FBDIRECTORY - каталоги
FBARCHIVE - файлы для резервного копирования
FBNORMAL - объединение флагов FBREADONLY or FBARCHIVE

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var s = "C:\*.*"
#Else
Var s = "/*.*"
#EndIf
OpenWindow("",10,10,200,200)
ListBoxGadget(1,10,10,100,150)
FileListBoxItem(1,s)
Do
  var event=WaitEvent()
  If event=eventclose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad