maod
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GOOSE
К сожалению, с путями все впорядке, книги находятся в папке (без вложений) в ListBox они отображаются нормально, с этим проблем нет.
Проблема в открытии выбранного файла через указанную программу (File.Run("AutoPlay\\Docs\\Tom.exe", sFilePath, "", SW_SHOWNORMAL, false);)
Если сделать, как было раньше через кнопку выбрать каталог загрузить выбранные книги в ListBox то открываются без проблем вот код:
sDirectory = Dialog.FolderBrowse("Выбрать каталог","");
if sDirectory ~= 'CANCEL' then
tFiles = File.Find(sDirectory, "*.*", false, false, nil);
if tFiles then
for nIndex, sFilePath in tFiles do
sData = sFilePath;
sText = String.SplitPath(sFilePath).Filename;
ListBox.AddItem("LB_Files", sText, sData);
end
end |
