Переместить файлы по папкам, в зависимости от имени файла

[Paul Hindenburg]

У меня есть папка внутри куча файлов. Название файла содержит дату, мне необходимо создать папку с такой датой и переменестить файл в эту папку. Может кто делал подобное??
ps
сделать могу, не хочется велосипед изобретать

[Paul Hindenburg]

хе хе хе))) я сам сделал, все оказалось проще чем я думал,

а вот собстна и код, конечно не весь... поиском файлов сами занимайтесь))

Name_file := ExtractFileName(memo1.Lines.strings[i]);
if not DirectoryExists(ExtractFilePath(memo1.Lines.strings[i])+Copy(Name_file,8,8))
then MkDir(ExtractFilePath(memo1.Lines.strings[i])+Copy(Name_file,8,8));

CopyFile(pchar(memo2.Lines.strings[i]),
pchar(ExtractFilePath(memo1.Lines.strings[i])+Copy(Name_file,8,8)+'\'+
extractfilename(memo1.Lines.strings[i])),0=0);