Вопрос № 48617: Здравствуйте, уважаемые эксперты!
У меня вопрос: как можно файлы поместить в разные папки в зависимости от их разрешения(.doc, .rar и т. д.)? Заранее спасибо!...
Вопрос № 48.617
Здравствуйте, уважаемые эксперты!
У меня вопрос: как можно файлы поместить в разные папки в зависимости от их разрешения(.doc, .rar и т. д.)? Заранее спасибо!
Отправлен: 09.07.2006, 15:26
Вопрос задал: Archangel (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Устинов Сергей Евгеньевич
Здравствуйте, Archangel!
Создаете функцию:
function DirToCopy(FileName: String):String; begin Result:='C:Downloads';
if ExtractFileExt(FileName)='.doc' then Result:='C:DownloadsDoc_files';
if ExtractFileExt(FileName)='.rar' then Result:='C:DownloadsRar_files';
if ExtractFileExt(FileName)='.rar' then Result:='C:DownloadsRar_files'; Result:=Result+FileName; end;
Единственный параметр - имя файла.
Удачи!
--------- Ответы на все вопросы - на сайте www.ya.ru ☺
Ответ отправил: Устинов Сергей Евгеньевич (статус: Студент)
Ответ отправлен: 09.07.2006, 15:50 Оценка за ответ: 5