vb點(diǎn)虐 刪除文件

Private?Sub?btnRemovePath_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnRemovePath.Click

公司主營(yíng)業(yè)務(wù)：成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出同心免費(fèi)做網(wǎng)站回饋大家。

Try

'?先建立目錄以便用于后續(xù)的刪除示范。

If?Not?Directory.Exists("D:\網(wǎng)易")?Then

Directory.CreateDirectory("?D:\網(wǎng)易?\Test1")

Directory.CreateDirectory("?D:\網(wǎng)易?\Test2")

Directory.CreateDirectory("?D:\網(wǎng)易?\Test3")

End?If

'?刪除子目錄?Test1。

Directory.Delete("?D:\網(wǎng)易?\Test1",?True)

'?刪除子目錄?Test2。

Dim?myDirectoryInfo?As?New?DirectoryInfo("?D:\網(wǎng)易?\Test2")

myDirectoryInfo.Delete(True)

'?將目錄?C:\AlexDirDemo?及其以下的文件和子目錄全數(shù)刪除。

Directory.Delete("?D:\網(wǎng)易?",?True)

Catch?ex?As?Exception

MessageBox.Show(ex.Message)

Exit?Sub

End?Try

'?啟動(dòng)?Windows?資源管理器。

Process.Start("explorer.exe",?"D:\")

End?Sub

vb點(diǎn)虐 創(chuàng)建文件夾和刪除文件夾

vb點(diǎn)虐 使用控件folderbrowserdialog1,在程序中:

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

me.folderbrowserdialog1.description

=

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

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

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點(diǎn)虐 怎么強(qiáng)制刪除文件

先殺進(jìn)程再刪除文件

Visual Basic code

//殺進(jìn)程代碼

Private?Sub?KillProcess(ByVal?processName?As?String)

Dim?myproc?As?System.Diagnostics.Process?=?New?System.Diagnostics.Process

Try

For?Each?thisproc?As?Process?In?Process.GetProcessesByName(processName)

If?(Not?thisproc.CloseMainWindow())?Then

thisproc.Kill()

End?If

Next

Catch

End?Try

End?Sub