vlom333
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: vlom333 Код:--[[Функция копирования папки]] Folder.Copy = function(sInFolderPath, sDestFolderPath) sInFolderPath = String.TrimRight(sInFolderPath, "\\"); sDestFolderPath = String.TrimRight(sDestFolderPath, "\\").."\\"..String.Right(sInFolderPath, String.ReverseFind(sInFolderPath, "\\", false) + 1); if not Folder.DoesExist(sDestFolderPath) then Folder.Create(sDestFolderPath); end File.Copy(sInFolderPath.."\\*.*", sDestFolderPath, true, true, false, true, nil); end --************************ local sDir = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Docs"); if sDir ~= "CANCEL" then -- копируем файл test.txt File.Copy('C:\\test.txt', sDir, true, true, false, true, nil); -- копируем папку test с файлами Folder.Copy('C:\\test', sDir); end | Да что ж у меня за чудеса: Цитата: -- копируем файл test.txt File.Copy('C:\\test.txt', sDir, true, true, false, true, nil); | Прописываю File.Copy("AutoPlay\\Docs\\Dir1\\Dir2\\Dir3\\test.txt", sDir, true, true, false, true, nil); - всё копируется отлично! Цитата: -- копируем папку test с файлами Folder.Copy('C:\\test', sDir); | Прописываю: Folder.Copy("AutoPlay\\Docs\\test1", sDir); Folder.Copy("AutoPlay\\Docs\\test2", sDir); Folder.Copy("AutoPlay\\Docs\\test3", sDir); Folder.Copy("AutoPlay\\Docs\\test4", sDir); Folder.Copy("AutoPlay\\Docs\\test5", sDir); Folder.Copy("AutoPlay\\Docs\\test6", sDir); Folder.Copy("AutoPlay\\Docs\\test7", sDir); end - всё копируется, НО: копируется не последняя директория, а все дерево папок AutoPlay\Docs\test, т.е. test получается вложена в Docs, а Docs - в AutoPlay (( При этом папочка AutoPlay именуется огрызком как lay, oPlay, Play, utoPlay. Когда пробовал путь из примера 'C:\\test' - всё получалось нормально. | Всего записей: 14 | Зарегистр. 23-12-2010 | Отправлено: 16:30 06-01-2011 | Исправлено: vlom333, 16:34 06-01-2011 |
|