Delphi 本地路徑的創(chuàng)建、清空本地指定文件夾下的文件
本地路徑的創(chuàng)建
在做下載操作時,我們一般先把文件下載到本地指定的路徑下,然后再做其他使用。
為了防止程序出現(xiàn)異常,我們通常需要先判斷本地是否存在指定的路徑。
以C盤Tmp文件夾為例,我們可以這樣做,代碼如下:
if not DirectoryExists('C:\Tmp') then if not CreateDir('C:\Tmp') then raise Exception.Create('Opps, Create New Dir Failed!');
清空本地指定文件夾下的文件
以C盤Tmp文件夾為例,清空Tmp下所有的文件,我們可以這樣做,代碼如下:
WINEXEC(PCHAR('CMD /C DEL /Q/F C:\tmp\*.*'), SW_HIDE); Sleep(1000);
知識點擴展:Delphi - 創(chuàng)建text文件并添加數(shù)據(jù)到文件中
創(chuàng)建文本文件
代碼如下:
//創(chuàng)建一個文本文件 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這個文件,會自動創(chuàng)建 writeln(TF, str); closefile(TF); end;
總結(jié)
以上所述是小編給大家介紹的Delphi 本地路徑的創(chuàng)建、清空本地指定文件夾下的文件,希望對大家有所幫助,如果大家有任何疑問請給我留言,小編會及時回復(fù)大家的。在此也非常感謝大家對腳本之家網(wǎng)站的支持!
如果你覺得本文對你有幫助,歡迎轉(zhuǎn)載,煩請注明出處,謝謝!
相關(guān)文章
使用 tke-autoscaling-placeholder 實現(xiàn)秒級彈性伸縮的方法
這篇文章主要介紹了使用 tke-autoscaling-placeholder 實現(xiàn)秒級彈性伸縮的方法,本文通過實例代碼給大家介紹的非常詳細,對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值,需要的朋友可以參考下2021-01-01Quoted-printable 編碼介紹、Quoted-printable編碼解碼轉(zhuǎn)換方法
這篇文章主要介紹了Quoted-printable 編碼介紹、Quoted-printable編碼解碼轉(zhuǎn)換方法,需要的朋友可以參考下2016-06-06MobaXterm詳細使用圖文教程(MobaXterm連接Linux服務(wù)器)
這篇文章主要介紹了MobaXterm詳細使用教程,介紹一下如何設(shè)置并用MobaXterm來連接Linux服務(wù)器,本文介紹了三種連接方式:SSH,F(xiàn)TP,serial,以及幾個有用的設(shè)置和命令,需要的朋友可以參考下2023-05-05利用ChatGPT與MindShow制作一個PPT的方法詳解
PPT制作是商務(wù)、教育和各種場合演講的重要組成部分,然而,很多人會花費大量時間和精力在內(nèi)容生成和視覺設(shè)計方面,為了解決這個問題,我們可以利用兩個強大的工具——ChatGPT和MindShow,來提高制作PPT的效率,感興趣的同學(xué)可以參考閱讀2023-06-06網(wǎng)站統(tǒng)計中的數(shù)據(jù)收集原理及實現(xiàn)
目前主流的數(shù)據(jù)收集方式基本都是基于javascript的。本文將簡要分析這種數(shù)據(jù)收集的原理,并一步一步實際搭建一個實際的數(shù)據(jù)收集系統(tǒng)2013-09-09