大大們好！

下面是弟寫的一隻測試刪除檔案的程式，if FINDFIRST('\\xp-roger-vm1\test\*.*', faDirectory, sr) = 0 then 這行可以使用URL路徑模式正常搜尋檔案，但是要使用DeleteFile刪除檔案時候，就無法刪除，必須要給實體路徑，請問有方式可以解決嗎？

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSEARCHREC;
begin
if FINDFIRST('\\xp-roger-vm1\test\*.*', faDirectory, sr) = 0 then
Begin
repeat
if sr.Name = '新增文字文件.txt' then
Begin
if MessageDlg('Do you really want to delete 新增文字文件.txt?', mtConfirmation, [mbYes, mbNo], 0) = IDYes then
Begin
if DeleteFile( \\xp-roger-vm1\test\' sr.Name) then
showmessage('刪除成功')
else
showmessage('刪除失敗');
end;
end;
until findnext(sr) <> 0;
end;
end;
[/code]

------
今天的事，留到後天再說....

編輯記錄

抱歉，弟剛剛發現原因了，原因是網路分享資料夾權限沒開，開了以後就可以正常刪除資料了

------
今天的事，留到後天再說....