--Выбор файла либо .jpg либо .png --
local tSource = Dialog.FileBrowse(false, "Image files", _DesktopFolder, "JPEG files (*.jpg)|*.jpg|PNG files(*.png)|*.png|", "", "dat", false, false);
--Запрос на копирование, если файл существует --
if tSource and tSource[1] ~= 'CANCEL' then
local cProceed = Dialog.Message("Копирование файла", "Копиловать выбранный файл в папку тестирования?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
--При нажатии Yes, копирование в папку Images проекта--
if cProceed == IDYES then
if not Folder.DoesExist(_SourceFolder.."\\Images") then Folder.Create(_SourceFolder.."\\Images"); end
File.Copy(tSource[1], _SourceFolder.."\\Images", true, true, false, true, nil);
local nError = Application.GetLastError();
-- проверка на ошибки--
if nError ~= 0 then
Dialog.Message("Error", "Ошибка при копировании, попробуйте заново.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
local tParts = String.SplitPath(tSource[1]);
ImgName = tParts.Filename..tParts.Extension;
Dialog.Message("OK", "Копирование успешно завершено!", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end
end
end
-- ImgName получим только при успешном копировании
if ImgName ~= nil then
Dialog.Message("OK", "ImgName = "..ImgName, MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end |
Дружественная тема в Варезнике
Образец ниже. 
