用VB.NET 刪除文件夾 連帶這子目錄一起刪除怎么處理

看看這個(gè)，有刪除的

堅(jiān)守“ 做人真誠(chéng) · 做事靠譜 · 口碑至上 · 高效敬業(yè) ”的價(jià)值觀，專業(yè)網(wǎng)站建設(shè)服務(wù)10余年為成都格柵板小微創(chuàng)業(yè)公司專業(yè)提供企業(yè)網(wǎng)站制作營(yíng)銷網(wǎng)站建設(shè)商城網(wǎng)站建設(shè)手機(jī)網(wǎng)站建設(shè)小程序網(wǎng)站建設(shè)網(wǎng)站改版，從內(nèi)容策劃、視覺(jué)設(shè)計(jì)、底層架構(gòu)、網(wǎng)頁(yè)布局、功能開(kāi)發(fā)迭代于一體的高端網(wǎng)站建設(shè)服務(wù)。

Public strPath As String '要導(dǎo)出的文件夾路徑

Public NewFile As String '文件保存用

'創(chuàng)建文件夾

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

'強(qiáng)制覆蓋保存時(shí)，不讓確認(rèn)框彈出？

Application.DisplayAlerts = False

Set Mybook = ThisWorkbook '把當(dāng)前工作簿定義為變量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 創(chuàng)建文件夾和刪除文件夾

vb.net使用控件folderbrowserdialog1,在程序中:

'設(shè)置對(duì)話框中在樹(shù)視圖控件上顯示的說(shuō)明文本

me.folderbrowserdialog1.description

=

"請(qǐng)選擇輸出報(bào)表所在路徑:"

'設(shè)置從其開(kāi)始瀏覽的根文件夾

me.folderbrowserdialog1.selectedpath

=

"c:\"

if

me.folderbrowserdialog1.showdialog()

=

dialogresult.ok

then

'取得全路徑（包含文件名）

reportpath1

=

system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)

'設(shè)定text顯示文件名

txtreport1.text

=

reportpath1

setreportlist()

end

if

在setreportlist()中針對(duì)你所需要的文件進(jìn)行操作等

vb.net代碼 刪除d:\臨時(shí)文件（很多上千個(gè)文件） 下 昨天創(chuàng)建的文件怎么寫

直接用bat文件命令刪除 還比vb.net來(lái)的塊

把下面代碼拷貝進(jìn)txt文本文檔，然后把擴(kuò)展名改為bat ，運(yùn)行 可以刪除電腦垃圾文件。里面代碼可以參考。如果非要用vb刪除，只能遞歸算法了，遞歸目錄下所有文件，判斷創(chuàng)建時(shí)間符合的刪除。

@echo off

echo 清空IE臨時(shí)文件目錄...

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

echo 正在清除系統(tǒng)臨時(shí)文件 *.tmp *._tmp *.log *.chk *.old ，請(qǐng)稍等...

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 清空垃圾箱，備份文件和預(yù)緩存腳本...

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 清理系統(tǒng)盤無(wú)用文件...

%windir%\system32\sfc.exe /purgecache

echo 優(yōu)化預(yù)讀信息...

%windir%\system32\defrag.exe %systemdrive% -b

echo 清除系統(tǒng)完成！

echo. pause