Q&A

  • 파일및 디렉토리 관련
안녕하세요.

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;  
2  COMMENTS