Delphi - 本地路径的创建清空本地指定文件夹下的文件

Posted 2022-09-06 jeremywucnblog

本地路径的创建

在做下载操作时，我们一般先把文件下载到本地指定的路径下，然后再做其他使用。

为了防止程序出现异常，我们通常需要先判断本地是否存在指定的路径。

以C盘Tmp文件夹为例，我们可以这样做，代码如下：

1   if not DirectoryExists(‘C:\Tmp‘) then
2     if not CreateDir(‘C:\Tmp‘) then
3       raise
4         Exception.Create(‘Opps, Create New Dir Failed！‘);

 

清空本地指定文件夹下的文件

以C盘Tmp文件夹为例，清空Tmp下所有的文件，我们可以这样做，代码如下：

1 WINEXEC(PCHAR(‘CMD /C DEL /Q/F C:\tmp\*.*‘), SW_HIDE);
2 Sleep(1000);