Частная подписка B4XPage_Created (Root1 As B4XView)
Корень = Корень1
Root.LoadLayout("Главная страница")
Dim HasDB как логическое значение
Если File.Exists(File.DirInternal, «demo.db») Тогда
ХасДБ = Истина
Конец, если
db.Initialize(File.DirInternal, "demo.db", True)
Если нет (HasDB), то
db.ExecNonQuery("CREATE TABLE Mod_ind_tab (имя_группы ТЕКСТ, имя_файла ТЕКСТ)")
db.ExecNonQuery("INSERT INTO Mod_ind_tab (имя_группы, имя_файла) ЗНАЧЕНИЯ ('tab1', 'file1.txt')")
db.ExecNonQuery("INSERT INTO Mod_ind_tab (имя_группы, имя_файла) ЗНАЧЕНИЯ ('tab1', 'file2.txt')")
db.ExecNonQuery("INSERT INTO Mod_ind_tab (имя_группы, имя_файла) ЗНАЧЕНИЯ ('tab2', 'file3.txt')")
Конец, если
Проверить скопированные файлы
Конец субтитра
Sub CopyFileInternal как ResumableSub
Пытаться
Dim rs As ResultSet = db.ExecQuery("ВЫБЕРИТЕ имя_группы, имя_файла ИЗ Mod_ind_tab")
Делать пока rs.NextRow
Тусклая группа As String = rs.GetString("group_name")
Тусклый ресурс As String = rs.GetString("имя_файла")
File.MakeDir(File.DirInternal, группа)
Dim NewSubFolder As String = File.Combine(File.DirInternal, группа)
Dim NewFileName As String = актив и ".ass"
File.Copy(File.DirAssets, актив, NewSubFolder, NewFileName)
Петля
rs.Close
Ловить
Журнал (Последнее исключение)
Вернуть ложь
Конец попытки
Вернуть истину
Конец суб[/КОД]
[CODE lang="b4x" Highlight="24-28"]До:
[виртуальные_активы]
файл1.txt
файл2.txt
файл3.txt
файл4.txt
главная страница.бал
_assets_map
demo.db
demo.db-журнал
Готово=истина
После:
[виртуальные_активы]
файл1.txt
файл2.txt
файл3.txt
файл4.txt
главная страница.бал
_assets_map
demo.db
demo.db-журнал
[таб1]
файл1.txt.ass
файл2.txt.ass
[таб2]
file3.txt.ass[/КОД]
[/QUOTE]