Форум » [x]Harbour » Перенос папок ? » Ответить

Перенос папок ?

Andrey: Всем привет. Подскажите как можно определенную ПАПКУ перенести на другой диск ? Т.е. имеем ПАПКУ начального уровня, а сколько там еще папок и файлов не известно ! И как эту папку со всем содержимым перенести на другой диск ? Файлы легко переносятся, а вот с папками затык получается.... Может у кого есть готовое решение ?

Ответов - 71, стр: 1 2 3 4 All

nick_mi: Для программы Андрея этот метод тоже отработал

Andrey: al-sklif пишет: После этого все пошло как надо ! nick_mi пишет: Для программы Андрея этот метод тоже отработал Спасибо БОЛЬШОЕ вам !!! Не люблю оставлять недоделанные проги....

Andrey: Ни фига, не работает - во так: MyCopyDir( cSource, "C:\@Musor", "*.*" ) FileSize("C:\123.txt") MyDeleteDir( cSource, "*.*" ) При удалении ПАПКИ выдает опять 32 ошибку !


al-sklif: Андрей, поэтому то я и писал о частном случае. Т.е., судя по всему, у меня глючит функция filesize(), именно в Харборе, которую я применял в проге. Т.е. она хватала папку и не отпускала... Но я ее применял... Когда nick_mi написал о том, что это сработало и в твоем примере, я малость удивился, т.к. ее не обнаружил в тексте примера. Вот. Поэтому не знаю почему там все заработало! Но... Возможно, что и там аналогичный глюк у какой-то схожей по применению функции. Еще. Я удаляю каталог не лежащий в основной директории, а фактически подкаталог третьего уровня, а FileSize("C:\123.txt") цепляет файл в основной папке. Может еще что-то здесь? Не знаю. Если nick_mi выложит свой пример, то поймем в чем дело

nick_mi: У меня нет своего примера. Я взял программу Андрея и добавил вызов Filesize(). Но делал я это в HARBOUR только сто проверил на вложенных - глубина 2, тоже отработала Вот кусок кода MyCopyDir( cSource, "C:\@Musor", "*.*" ) filesize ("C:\123.txt") MyDeleteDir( cSource, "*.*" )

Andrey: nick_mi пишет: Но делал я это в HARBOUR, только сто проверил на вложенных - глубина 2, тоже отработала Значит в хХарборе не работает. Печально... А как отправить эту ошибку разработчикам хХарбора ? Может кто нибудь сообщит им об этом, а то у меня с английским плохо...

santy: Андрей, взял ваш пример, ничего не менял. Создал проэкт в xHarbour v.9437 Bcc 551, при компиляции добавил библиотеку ct.lib. Глубина каталогов - 4 , Копирует без ошибок и удаляет все файлы и каталоги без ошибок.

Andrey: santy Спасибо БОЛЬШОЕ ! А какая система, где пример выполнялся ? И комп сетевой или без сети ? И там в проекте еще был готовый пример, он работает ? У меня не работает на WinXP SP3 + сеть.

santy: Ваш готовый пример не работает. У меня стоит Win XP SP3, без сети. Попробую в сети протестировать.

Andrey: Windows 7 Домашняя Расширенная x64 + сеть xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406) Borland C++ 5.5.1 (32 bit) 4, Delete DIR: [D:\TEMP2\dir0000.chk] (0) 3, Delete DIR: [D:\TEMP2\TEMP\TEMP] (0) 2, Delete DIR: [D:\TEMP2\TEMP] (145) 1, Delete DIR: [D:\TEMP2] (145) На СЕМЕРКЕ появилась уже другая ошибка - 145 ! Прикол....

Andrey: Что-то не могу собрать пример для Харбора 3.1 Выдает что нет функции: Error: Unresolved external '_HB_FUN_ISDIRECTORY' referenced from Z:\HB30\.HBMK\WIN\BCC\TEST_DIR5.OBJ hbmk2: Error: Running linker. 2 Хотя в примерах есть это использование функции: Z:\hb30\contrib\hbgd\tests\ Z:\hb30\examples\httpsrv\modules\ Да и в самой библе есть такая: Z:\hb30\lib\win\bcc\ harbour-30-bcc.lib hbrtl.lib xhb.lib Что нужно подправить в test_dir5.hbp ? # # $Id$ # -3rd=hbide_version=1.0 -3rd=hbide_title=Dir-demo -3rd=hbide_output=demo -3rd=hbide_xhb=YES # -inc -mt -gtwin test_dir5.prg Сам пример тут : http://files.mail.ru/UGRQUY

AlexMyr: Andrey пишет: Error: Unresolved external '_HB_FUN_ISDIRECTORY' referenced from Z:\HB30\.HBMK\WIN\BCC\TEST_DIR5.OBJ эта ф-я находится в библиотеке xhb, используй hb_DirExists()!

Andrey: AlexMyr пишет: эта ф-я находится в библиотеке xhb, используй hb_DirExists()! Спасибо ! Я по ChangeLog прочитал, понял потом. А как все таки добавить xhb в test_dir5.hbp ?

AlexMyr: -lxhb

Andrey: Короче, совсем завал... Скомпилировал пример на Harbour 3.0.0 (Rev. 16951). Программа запускается, но ничего не делает ! Полный обвал... Подскажите чем различается Харбор и хХарбор в моем случае ? Пример здесь http://files.mail.ru/LYIEYI

santy: Посмотрите проект: http://files.mail.ru/0ZJINQ ошибка 145 у меня также была, но после перекомпиляции уже не было.

AlexMyr: нормально отработало ¦ Копирование папок с файлами произвольной структуры на другой диск/папку. ¦ Удаление папок с файлами произвольной структуры. Copyright (c) 2011-2012, Verchenko Andrey, Dmitrov, E-mail: 30195@mail.ru GTWVT-terminal, CODEPAGE RU866 Windows XP 5.1.2600 Service Pack 3 Harbour 3.0.0 (Rev. 16951) Borland C++ 5.5.1 (32-bit) --> Copy dir + files : Test_dir55-Copy-Delete.rar --> Delete DIR : 12

Andrey: santy пишет: Посмотрите проект: Посмотрел... и офигел... xhb_copy_file.exe у меня нечего не делает.... Запускается и вылетает, якобы ничего нет, но не на всех папках. Папка для пробы здесь http://files.mail.ru/QJS1VX А что за файл - xhb_copy_file.xpj ? Каким редактором пользуешься ?

Andrey: santy пишет: нормально отработало А проект сразу собрался ? Или правил мой test_dir55.hbp ? У меня запускается и вылетает, якобы ничего нет, но не на всех папках. Папка для пробы здесь http://files.mail.ru/QJS1VX

nick_mi: И у меня EXE-программа из примера правильно отработала



полная версия страницы