请问一下为什么，DeleteFile删除不了文件

请教一下为什么，DeleteFile删除不了文件？
不好意思小弟是新手，不知是不是FindFirst还没释放所以删除不了
如果是那要怎办？
以下是测试代码

procedure TForm1.Button1Click(Sender: TObject);
var
ph, str : string;
j : tsearchrec;
begin
ph := GetCurrentDir;
str := 'SK0001';
  if FindFirst(ph + '\data\*' + Str + '*.Txt', faAnyFile, J) = 0  then
      repeat
      if faAnyFile > 0 then
       DeleteFile(ph + '\' + 'dada\' + J.Name);
    until FindNext(J) <> 0 ;
          FindClose(J);
end;

end.
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
  ph, str : string;
  j : tsearchrec;
begin
  ph := GetCurrentDir;
  str := 'SK0001';
  if FindFirst(ph + '\data\*' + str +'*.Txt', faAnyFile, J) = 0  then
    repeat
      //if faAnyFile > 0 then //faAnyFile是一个常量(71),这样判断无任何意义。
      DeleteFile(ph + '\' + 'dada\' + J.Name); //上面是data，这个是dada，路径不一样怎么删。
    until FindNext(J) <> 0 ;
  FindClose(J);
end;
[解决办法]
*SK0001*.Txt???不行嘀

procedure TForm1.Button1Click(Sender: TObject);
var
ph, str : string;
j : tsearchrec;
begin
    ph := 'D:\tmp\';//路径自己调
    if FindFirst(ph+ '*.txt', faAnyFile, J) = 0  then
      repeat
        if (faAnyFile > 0) and (Pos(J.Name)>0) then
          DeleteFile(ph + J.Name); 
 
      until FindNext(J) <> 0 ;
    FindClose(J);
end;

查看更多 下一篇