안녕하세요.
MoveFile함수 활용시에...
Button1을 클릭했을때, MoveFile함수가 제대로 동작 하더군요.
그런데, Button2를 클릭후 모든 파일 검색 ... 루틴..
Button1을 클릭하면, 왜 MoveFIle함수가 제대로 동작안하는지 알려주세요. 그리고 해결책도 알고 싶습니다.
그럼 즐프 하세요.
procedure TForm1.Button1Click(Sender: TObject);
begin
MoveFile('D:Temp', 'D:Temp2');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
srData : TSearchRec;
irValue : integer;
begin
irValue := FindFirst('D:Temp*.*', faanyfile, srData);
while irValue = 0 do begin
irValue := FindNext(srData);
end;
end;
가 빠져 있군요. 아마 이것이 원인인것 같습니다.
while문 뒤에 추가해 보세요.
즐푸 하세요 ^^;