本地路徑的創(chuàng)建
在做下載操作時(shí)，我們一般先把文件下載到本地指定的路徑下，然后再做其他使用。
為了防止程序出現(xiàn)異常，我們通常需要先判斷本地是否存在指定的路徑。
以C盤(pán)Tmp文件夾為例，我們可以這樣做，代碼如下：
if not DirectoryExists('C:\Tmp') then
if not CreateDir('C:\Tmp') then
raise
Exception.Create('Opps, Create New Dir Failed！');
清空本地指定文件夾下的文件
以C盤(pán)Tmp文件夾為例，清空Tmp下所有的文件，我們可以這樣做，代碼如下：
WINEXEC(PCHAR('CMD /C DEL /Q/F C:\tmp\*.*'), SW_HIDE);
Sleep(1000);
知識(shí)點(diǎn)擴(kuò)展：Delphi - 創(chuàng)建text文件并添加數(shù)據(jù)到文件中
創(chuàng)建文本文件
代碼如下：
//創(chuàng)建一個(gè)文本文件
procedure CreateTextFile();
var
TF: TextFile; 6 begin 8 AssignFile(TF,'C:\tmp\1.txt');
ReWrite(TF);
CloseFile(TF);
end;
向文本文件中添加內(nèi)容
代碼如下：
//向文本文件中追加內(nèi)容
Procedure AppendText(str: String);
var
TF: TextFile;
begin
assignfile(TF,'C:\tmp\1.txt');
rewrite(TF);
append(TF);//TMP中如不存在1.TXT這個(gè)文件，會(huì)自動(dòng)創(chuàng)建
writeln(TF, str);
closefile(TF);
end;
總結(jié)
以上所述是小編給大家介紹的Delphi 本地路徑的創(chuàng)建、清空本地指定文件夾下的文件,希望對(duì)大家有所幫助，如果大家有任何疑問(wèn)請(qǐng)給我留言，小編會(huì)及時(shí)回復(fù)大家的。在此也非常感謝大家對(duì)腳本之家網(wǎng)站的支持！
如果你覺(jué)得本文對(duì)你有幫助，歡迎轉(zhuǎn)載，煩請(qǐng)注明出處，謝謝！
您可能感興趣的文章:- delphi制作wav文件的方法
- Delphi實(shí)現(xiàn)木馬文件傳輸代碼實(shí)例
- Delphi用TActionList實(shí)現(xiàn)下載文件的方法
- Delphi中判斷文件是否為文本文件的函數(shù)
- Delphi建立、讀取、存貯INI文件的方法《一》
- delphi建立、讀取、存貯INI文件的方法《二》
- delphi建立、讀取、存貯INI文件的方法《三》
