Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c