看看這個,有刪除的

堅守“ 做人真誠 · 做事靠譜 · 口碑至上 · 高效敬業 ”的價值觀,專業網站建設服務10余年為成都格柵板小微創業公司專業提供企業網站制作營銷網站建設商城網站建設手機網站建設小程序網站建設網站改版,從內容策劃、視覺設計、底層架構、網頁布局、功能開發迭代于一體的高端網站建設服務。
Public strPath As String '要導出的文件夾路徑
Public NewFile As String '文件保存用
'創建文件夾
Public Sub CreatemyFolder(str As String)
Dim Mybook As Workbook
Dim f
Dim mypath As String
'Dim NewFile As String
Dim strPathFolder$
Dim abc As Object
NewFile = str
'強制覆蓋保存時,不讓確認框彈出?
Application.DisplayAlerts = False
Set Mybook = ThisWorkbook '把當前工作簿定義為變量Mybook
mypath = ThisWorkbook.Path "\"
strPathFolder = mypath NewFile
strPath = strPathFolder "\"
On Error Resume Next
Set abc = CreateObject("Scripting.FileSystemObject")
If abc.FolderExists(strPathFolder) = True Then
'===刪除文件夾==========
Set f = abc.GetFolder(strPathFolder)
f.Delete
abc.CreateFolder (strPathFolder)
'===刪除文件夾==========
Exit Sub
Else
abc.CreateFolder (strPathFolder)
End If
Set abc = Nothing
End Sub
vb.net使用控件folderbrowserdialog1,在程序中:
'設置對話框中在樹視圖控件上顯示的說明文本
me.folderbrowserdialog1.description
=
"請選擇輸出報表所在路徑:"
'設置從其開始瀏覽的根文件夾
me.folderbrowserdialog1.selectedpath
=
"c:\"
if
me.folderbrowserdialog1.showdialog()
=
dialogresult.ok
then
'取得全路徑(包含文件名)
reportpath1
=
system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)
'設定text顯示文件名
txtreport1.text
=
reportpath1
setreportlist()
end
if
在setreportlist()中針對你所需要的文件進行操作等
直接用bat文件命令刪除 還比vb.net來的塊
把下面代碼拷貝進txt文本文檔,然后把擴展名改為bat ,運行 可以刪除電腦垃圾文件。里面代碼可以參考。如果非要用vb刪除,只能遞歸算法了,遞歸目錄下所有文件,判斷創建時間符合的刪除。
@echo off
echo 清空IE臨時文件目錄...
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
echo 正在清除系統臨時文件 *.tmp *._tmp *.log *.chk *.old ,請稍等...
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
rem .log大部分有可能有用
rem del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
echo 清空垃圾箱,備份文件和預緩存腳本...
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp md %windir%\temp
rem cooke和最近歷史還是保留吧...
rem del /f /q %userprofile%\COOKIES s\*.*
rem del /f /q %userprofile%\recent\*.*
echo 清理系統盤無用文件...
%windir%\system32\sfc.exe /purgecache
echo 優化預讀信息...
%windir%\system32\defrag.exe %systemdrive% -b
echo 清除系統完成!
echo. pause
文章名稱:vb.net刪除目錄 vbs刪除文件
網頁鏈接:http://www.yijiale78.com/article8/hhsdop.html
成都網站建設公司_創新互聯,為您提供微信小程序、用戶體驗、小程序開發、網站策劃、網站內鏈、域名注冊
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯