Delphi 本地路徑的創(chuàng)建、清空本地指定文件夾下的文件

更新時(shí)間：2019年08月29日 08:59:54 作者：JJ_JeremyWu

這篇文章主要介紹了Delphi 本地路徑的創(chuàng)建、清空本地指定文件夾下的文件,本文通過實(shí)例代碼給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下

本地路徑的創(chuàng)建

在做下載操作時(shí)，我們一般先把文件下載到本地指定的路徑下，然后再做其他使用。

為了防止程序出現(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);

知識點(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)建、清空本地指定文件夾下的文件,希望對大家有所幫助，如果大家有任何疑問請給我留言，小編會(huì)及時(shí)回復(fù)大家的。在此也非常感謝大家對腳本之家網(wǎng)站的支持！
如果你覺得本文對你有幫助，歡迎轉(zhuǎn)載，煩請注明出處，謝謝！

您可能感興趣的文章:

相關(guān)文章

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