lerik2703
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору krasafcheg08 Цитата: не получается создать функцию создания папки, которую указывает пользователь. | можно так Код: if not Folder.DoesExist("C:\\avion") then Folder.Create("C:\\avion") end local NewFolder=created_folder(Input.GetText("Input1")) if NewFolder ~= nil then Folder.Create("C:\\avion\\"..NewFolder); if Application.GetLastError() ~= 0 then NewFolder = nil end end if NewFolder == nil then Dialog.Message("Notice", "Не возможно создать папку", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1); else Shell.Execute("C:\\avion\\"..NewFolder, "open", "", "", SW_SHOWNORMAL, false); end | и функция для блокировки создания папок Код: function created_folder(sFolderName) not_created_folder={"PRN","COM1","COM2","COM3","NUL","LPT1","LPT2","LPT3","CON"} for n,sNotCreatedFolder in pairs (not_created_folder) do local New_St = String.Replace(sFolderName, sNotCreatedFolder, "x", false) if String.CompareNoCase(New_St, sFolderName)~= 0 then sFolderName = nil break end end return sFolderName end |
| Всего записей: 403 | Зарегистр. 05-01-2010 | Отправлено: 17:25 30-12-2010 | Исправлено: lerik2703, 17:31 30-12-2010 |
|