我想把E盘下不同目录中的*.MPG文件剪切到D盘的MPG文件夹中,但我不知道如何
把不同目录下的文件找到,请各位帮帮忙。
把不同目录下的文件找到,请各位帮帮忙。
解决方案 »
- 用For循环动态创建多个线程,为何好像只创建了一个线程
- 如何用Tmediaplayer播放流文件!!
- 如何在状态栏中动态的时间显示
- Parent和Owner的关系(注意不是VCL概念).
- clientdateset控件在加入一条记录时,怎么捕捉主键重复的错误??????
- 高分求教(加上下面两贴共220分)Delphi怎样编写ISAPI过滤器
- 类的实例的赋值
- delphi中有没有求记录总数的函数?
- 无奈了,dll调用老提示“Access violation at address 00C.. read of address 00000”
- 各位请看看下面代码!!!
- delphi严重问题,进者有分!
- 关于执行存储过程
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('cmd /k move e:\*.mpg d:\mpg\',sw_hide);
end;
T:TSHFileOpStruct;
begin
With T do
Begin //5
Wnd:=0;
wFunc:=FO_MOVE;
pFrom:=Pchar(sourwebpath1);
pTo:=Pchar(destwebpath1);
fFlags:=FOF_SIMPLEPROGRESS;
hNameMappings:=nil;
lpszProgressTitle:='正在移动文件夹';
fAnyOperationsAborted:=False;
End; //5
SHFileOperation(T);end
procedure Tform1.maketree;
var
sr:Tsearchrec;
err:integer;
begin
err:=findfirst('*.*',$3f,sr);
while (err=0) do
begin
if sr.Name[1]<>'.' then
begin
if (sr.Attr and fadirectory)=0 then
begin
winexec('cmd /k move e:\*.mpg d:\mpg\',sw_hide);
end;
if (sr.Attr and fadirectory)=16 then
begin
chdir(sr.name);
winexec('cmd /k move *.mpg d:\mpg\',sw_hide);
maketree;
chdir('..');
end;
end;
err:=findnext(sr);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
chdir('e:\');
maketree;
end;