台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
861
會員總數：
245903
討論主題：
189495
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
VB.NET
>> 怎麼刪除某資料夾裡N天前的檔案
[]
[
我要回覆
]
1
怎麼刪除某資料夾裡N天前的檔案
價值 : 100 QP
點閱數:1047 回應數:2
樓主
沈宗翰
0
3
166
9
發送站內信
想用VB.NET撰寫一個定時清除舊檔案的程式
但不知道該如何下手，請各位幫幫忙 謝謝
搜尋相關Tags的文章：
[ 刪除 ] ,
本篇文章發表於2018-07-13 15:37
1樓
最有價值解答
小魚
呼叫函式
'取得我的文件資料夾 Dim Path As String = "D:/tmp/" '刪除7天前檔案 Dim deleteDate As DateTime = DateTime.Now.Date.AddDays(-7) DeleteAllPathFiles(Path, deleteDate)
這是函式
'刪除目錄下所有過期的檔案 Sub DeleteAllPathFiles(path As String, deleteDate As DateTime) Try Dim dirInfo As New DirectoryInfo(path) '取得此目錄的所有檔案名稱(不含資料夾) Dim fileNames As FileInfo() = dirInfo.GetFiles("*.*") For Each info As FileInfo In fileNames '刪除目錄下所有過期的檔案 If info.LastWriteTime < deleteDate Then File.Delete(info.FullName) End If Next '取得資料夾資訊 Dim dirInfos As DirectoryInfo() = dirInfo.GetDirectories("*.*") For Each info As DirectoryInfo In dirInfos '刪除目錄下所有過期的檔案 DeleteAllPathFiles(info.FullName, deleteDate) Next Catch ex As Exception Dim Err As String = ex.ToString() End Try End Sub
本篇文章回覆於2018-07-13 23:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應
沈宗翰
TO 小魚
感謝您的協助，非常的詳細~
我一直執著於取file.LastWriteTime部分做判斷，讓我不知道該如何才好...
謝謝幫忙~
本篇文章回覆於2018-07-14 17:54
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
1
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved
0
3
166
9
