|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Перемещение файлов
Здравствуйте,помогите с написанием кода который бы выполнял примерно такую функцию:
MoveFile(C:\*.txt),(D:\) Знаю что без нового имени(D:\'Новое имя перемещаемого файла')нельзя,подскажите как обойти или все же можно зделать так???? мой кодстоит на клике по буттону) Код:
begin A:=GetSpecialFolderPath(CSIDL_DESKTOPDIRECTORY); directory:=A; ChDir(directory); GetDir(2, directory); Createdir(edit1.text); createdir(edit2.text); name:=edit1.Text; name2:=A+edit2.Text; C:=A; B:='*.scvb'; MoveFile(pansichar(A+'\'+'*.scvb'),pansichar(A+'\'+name+'\')); end; Все переменные string'овые))Думаю не получается потому что у MoveFile нету свойства, типа задания по маске(типа *.txt или *.jpg или 123.*) Помогите пожалуст))) //желательно с комментариями к коду(чтоб понятней было..))) |
#2
|
||||
|
||||
Сначала выполняешь рекурсивный поиск файлов по масочке, получаешь список, ну а дальше поехали.
Кста, на сайте есть исходник "Супер копира", можешь его помацать. P.S. Мисс Эйсид Бёрн — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 20.11.2011 в 16:52. |
#3
|
||||
|
||||
Либо рекурсивный, либо (что лучше) циклический с очередью (каждую найденную папку кладем в очередь, и поиск делаем циклом "пока очередь не пуста"). Потому что как показывает практика, запуск рекурсивного поиска в C:\ частенько приводит к переполнению стека.
jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 20.11.2011 в 16:19. |
#4
|
||||
|
||||
Можно поподробнее про циклический поиск или рекурсивный,если можно код с коментариями предоставить))не целиком освоился ещё)))
небольшой Error=) Код:
A+'\'+'*.scvb' там вместо Код:
'*.scvb* Код:
+B P.S.да под ником Acid_Burn В Фильме была Анджелина Джоли,Но я далеко не она,хотя бы потому что я ОН=) Последний раз редактировалось Acid_Burn123, 20.11.2011 в 17:08. |
#5
|
||||
|
||||
FindFirst, FindNext. Описание в гугле.
jmp $ ; Happy End! The Cake Is A Lie. |
#6
|
||||
|
||||
Большое спасибо,разобрался сам=)тему можно закрывать.
|