Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mezi
On Enter кнопки:
Код: Label.SetText("Label1", "Посказка");
Label.SetVisible("Label1", true); |
On Leave кнопки:
Код: Label.SetText("Label1", " ");
Label.SetVisible("Label1", false); |
Robby
Потестил функцию, что выложил ранее, оказалось немного кривовато работает 
Исправленный вариант.
Код: --[[Функция перемещения папки]]
Folder.Move = function(sInFolderPath, sDestFolderPath)
sInFolderPath = String.TrimRight(sInFolderPath, "\\");
sDestFolderPath = String.TrimRight(sDestFolderPath, "\\").."\\"..String.Mid(sInFolderPath, String.ReverseFind(sInFolderPath, "\\", false) + 1, -1);
if not Folder.DoesExist(sDestFolderPath) then
Folder.Create(sDestFolderPath);
end
File.Move(sInFolderPath.."\\*.*", sDestFolderPath, true, true, false, true, nil);
-- Test for error
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Folder.Delete(sInFolderPath);
end
end
--************************
local sDir = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Docs");
if sDir ~= "CANCEL" then
-- перемещаем папку test с файлами
Folder.Move('C:\\Downloads', sDir);
end |
|
Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 22:59 03-03-2011 | Исправлено: Zloy_Gelud, 23:57 03-03-2011 |
|
Дружественная тема в Варезнике
