在程序没有关闭的情况下 如何删除用SaveDialog打开过的文件夹

请问如果删除SaveDialog.Execute打开过的文件夹。

解决方案 »

  1.   

    rmdir(extractfilepath(savedialog.filename))
      

  2.   

    if RemoveDir(extractfilepath(savedialog.filename)) then 
      ShowMessage(extractfilepath(savedialog.filename)+' removed OK') 
    else 
      ShowMessage(extractfilepath(savedialog.filename)+' remove failed with error : '+ IntToStr(GetLastError)); 用RemoveDir函数来删除文件夹，删除失败会返回false如果是要删除所有SaveDialog.Execute打开过的文件夹，就需要每次执行的时候记下该文件所在的文件夹，放入TStringList。
      

  3.   

    试试先用SetCurrentDirectory把当前文件夹设为其它文件夹再删除