Перемещения файлов с нужным расширением.

← →
TyTuk (2010-08-18 09:05) [0]

Добрый день , у меня такой вопрос.. как мне переместить несколько файлов ,одного расширения, из одной папки в другую ?
(Имя файлов роли тут играть не должно,перемещение только по расширению файла)

← →
Andy BitOff © (2010-08-18 09:42) [1]

RenameFile
маска файлов
F1

← →
ixen (2010-08-18 09:46) [2]

сначало нужно получить список файлов которые нужно переместить отобрав по расширению фалов:
вот пример из справки Delphi 7
type TFileName = string; TSearchRec = record Time: Integer; //Time contains the time stamp of the file. Size: Integer; //Size contains the size of the file in bytes. Attr: Integer; //Attr represents the file attributes of the file. Name: TFileName; //Name contains the filename and extension. ExcludeAttr: Integer; FindHandle: THandle; FindData: TWin32FindData; //FindData contains additional information such as //file creation time, last access time, long and short filenames. end; var SearchRec: TSearchRec; procedure TForm1.SearchClick(Sender: TObject); begin FindFirst("c:\Program Files\MyProgram\bin\*.*", faAnyFile, SearchRec); Label1.Caption := SearchRec.Name + " is " + IntToStr(SearchRec.Size) + " bytes in size"; end; procedure TForm1.AgainClick(Sender: TObject); begin if FindNext(SearchRec) = 0 then Label1.Caption := SearchRec.Name + " is " + IntToStr(SearchRec.Size) + " bytes in size" else FindClose(SearchRec); end;

← →
Anatoly Podgoretsky © (2010-08-18 10:56) [3]

> TyTuk (18.08.2010 09:05:00) [0]

ShFileOperation

← →
Amoeba_ (2010-08-18 12:17) [4]

Статья здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91

Перемещения файлов с нужным расширением. Найти похожие ветки