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 |
|
Дружественная тема в Варезнике
) - это как раз-таки запись макросов, а затем их разбор и подготовка для работы с COM в АМС. 
