Нужна библиотека с функциями для работы с файлами - QBasic
Формулировка задачи:
Я разрабатываю операционную оболочку на QBasic'e - QuickGUI (quickgui.narod.ru), и сейчас нужно создать диалоги типа Open File, Save File и т. п. Проблема в том, что в бейсике нет стандартных фукнций для работы с файлами. Помогите найти библиотеку с функциями для работы с файлами ("получить список файлов в папке", "список доступных дисков", и т. д., и прочее)!
Решение задачи: «Нужна библиотека с функциями для работы с файлами»
textual
Листинг программы
DECLARE FUNCTION Dir.CreateDir% (dirname$) DECLARE FUNCTION Dir.CreateTree! (dirname$) DECLARE FUNCTION Dir.Current$ () DECLARE FUNCTION Dir.DeleteDir% (dirname$) DECLARE FUNCTION Dir.DeleteTree% (tree$) DECLARE FUNCTION Dir.DirExist% (dirname$) DECLARE FUNCTION Dir.DiskDrivers% (driver$()) DECLARE FUNCTION Dir.FileExist% (filename$) DECLARE FUNCTION Dir.FindFirst$ (path$, spec$, mode!, attr!, handle!) DECLARE FUNCTION Dir.FindNext$ (attr!, handle!) DECLARE FUNCTION Dir.FullName$ (path$, filename$) DECLARE FUNCTION Dir.GetName$ (path$) DECLARE FUNCTION Dir.GetLFN$ (filename$) DECLARE FUNCTION Dir.GetTree! (path$, dirs$(), mode!) DECLARE FUNCTION Dir.GetType$ (filename$) DECLARE FUNCTION Dir.Scan! (path$, spec$, filemas$(), mode!) DECLARE FUNCTION Dir.ScanX! (path$, spec$, filemas$(), mode!) DECLARE FUNCTION Dir.ScanTree% (path$, spec$, filemas$(), mode!) DECLARE FUNCTION Disk.FileSystem$ (ds$) DECLARE FUNCTION Disk.GetAllSpace& (driver$) DECLARE FUNCTION Disk.GetCount% () DECLARE FUNCTION Disk.CheckReady% (Disk$) DECLARE FUNCTION Disk.GetType% (Disk$) DECLARE FUNCTION Disk.GetFreeSpace& (driver$) .... DECLARE FUNCTION File.Close% (handle!) DECLARE FUNCTION File.Delete% (filename$) DECLARE SUB File.GetDate (handle!, d!, M!, y!) DECLARE FUNCTION File.GetPos& (handle!) DECLARE SUB File.GetTime (handle!, s!, M!, h!) DECLARE FUNCTION File.SetAtribute% (filename$, attr!) DECLARE FUNCTION File.Length! (handle!) DECLARE SUB File.MovePos (handle!, nPos!) DECLARE FUNCTION File.Open% (filename$, mode!, handle!) DECLARE FUNCTION File.Read% (handle!, index!, vs!, vp!, length!) DECLARE FUNCTION File.Rename% (oname$, nname$) DECLARE SUB File.SetPos (handle!, position&) DECLARE SUB File.SetVerif (mode!) DECLARE FUNCTION File.Write% (handle!, index!, vs!, vp!, length!)