Delphi 本地路徑的創(chuàng)建、清空本地指定文件夾下的文件
本地路徑的創(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)注明出處，謝謝！
相關(guān)文章
ffmpeg安裝及音頻轉(zhuǎn)換指令應(yīng)用
ffmpeg是一套可以用來(lái)記錄、轉(zhuǎn)換數(shù)字音頻、視頻,本文主要介紹了ffmpeg安裝及音頻轉(zhuǎn)換指令應(yīng)用,具有一定的參考價(jià)值,感興趣的可以了解一下2024-02-02
Typora+PicGo+GitHub實(shí)現(xiàn)md自帶圖床效果
這篇文章主要介紹了Typora+PicGo+GitHub實(shí)現(xiàn)md自帶圖床效果,本文通過(guò)圖文并茂的形式給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-04-04
Vscode ChatGPT插件使用(無(wú)需代理注冊(cè))
本文主要介紹了Vscode ChatGPT插件使用(無(wú)需代理注冊(cè))，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-02-02
ant?design?vue?圖片預(yù)覽組件自定義樣式
這篇文章主要為大家介紹了ant?design?vue?圖片預(yù)覽組件自定義樣式方法詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2023-03-03
Prometheus + Grafana 構(gòu)建強(qiáng)大的監(jiān)控和數(shù)據(jù)可視化系統(tǒng)(最新推薦)
Prometheus?是一個(gè)時(shí)間序列數(shù)據(jù)庫(kù),但是,它不僅僅是一個(gè)時(shí)間序列數(shù)據(jù)庫(kù),它涵蓋了可以綁定的整個(gè)生態(tài)系統(tǒng)工具集及其功能,非常適合Kubernetes集群的監(jiān)控,這篇文章主要介紹了Prometheus + Grafana 構(gòu)建強(qiáng)大的監(jiān)控和數(shù)據(jù)可視化系統(tǒng),需要的朋友可以參考下2024-05-05
本文通過(guò)講解TCP與UDP傳輸協(xié)議傳輸數(shù)據(jù)是的過(guò)程及詳細(xì)介紹什么是 socket及現(xiàn)在我么們和大家一起來(lái)學(xué)習(xí)吧2021-08-08
最近發(fā)現(xiàn)有很多網(wǎng)友都提出一個(gè)問(wèn)題：程序的編譯與解釋有什么區(qū)別？這篇文章就為大家介紹了編譯和解釋的區(qū)別，需要的朋友可以參考下2016-12-12
使用selenium自動(dòng)控制瀏覽器找不到Chromedriver問(wèn)題
這篇文章主要介紹了ChromeDriver安裝與配置問(wèn)題的解決方法,本文給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-02-02
Typora2024最新版使用方法步驟詳解(親測(cè)可用)
此方法非常簡(jiǎn)單,無(wú)需安裝dll補(bǔ)丁,無(wú)需修改注冊(cè)表,無(wú)需使用老版本,僅需修改部分文件內(nèi)容即可,對(duì)2024最新版Typora使用方法感興趣的朋友一起看看吧2024-08-08
MobaXterm詳細(xì)使用圖文教程(MobaXterm連接Linux服務(wù)器)
這篇文章主要介紹了MobaXterm詳細(xì)使用教程,介紹一下如何設(shè)置并用MobaXterm來(lái)連接Linux服務(wù)器，本文介紹了三種連接方式：SSH，F(xiàn)TP，serial，以及幾個(gè)有用的設(shè)置和命令，需要的朋友可以參考下2023-05-05