Нужна библиотека с функциями для работы с файлами - 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!)

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы