vb.net 創(chuàng)建文件夾和刪除文件夾

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

為哈密等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及哈密網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、哈密網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

'設(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.net怎么強(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

如何使用VB．NET FileInfo類對(duì)文件操作

在網(wǎng)上收到一些關(guān)于文件操作的列子，現(xiàn)在和大家分享一下，以下的示例代碼將向您展示如何使用VB．NET FileInfo來拷貝、移動(dòng)和刪除文件，以及如何使用DirectoryInfo來移動(dòng)和刪除文件夾。（注意：為了運(yùn)行這些示例，您需要將這條語句：Imports System．IO，添加到您的表單或模塊的最頂部。）

VB．NET FileInfo示例 拷貝一個(gè)文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．CopyTo（"C：abc2．txt"， True）4. 我們將fFile1變量定義為一個(gè)FileInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄，為了拷貝一個(gè)文件，我們使用FileInfo對(duì)象中的CopyTo方法并指明我們計(jì)劃要拷貝的目標(biāo)文件的全名。 移動(dòng)一個(gè)文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．MoveTo（"C：abc3．txt"）4. 我們將fFile1變量定義為一個(gè)FileInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄，為了拷貝一個(gè)文件，我們使用FileInfo對(duì)象中的CopyTo方法并指明我們計(jì)劃要移動(dòng)的目標(biāo)文件的全名。 刪除一個(gè)文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．Delete（）4. 我們將fFile1變量定義為一個(gè)FileInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄，為了刪除一個(gè)文件，我們使用FileInfo對(duì)象中的Delete方法。 VB．NET FileInfo DirectoryInfo示例 移動(dòng)一個(gè)文件夾 1. Dim dDir1 As New DirectoryInfo（"C：Folder1"）2.3. dDir1．MoveTo（"C：Folder2"）4. 我們將dDir1變量定義為一個(gè)DirectoryInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄，為了移動(dòng)一個(gè)文件夾，我們使用DirectoryInfo對(duì)象的MoveTo方法，并指明我們所移動(dòng)的文件夾的完整目標(biāo)路徑。 刪除一個(gè)文件夾 1. Dim dDir1 As New DirectoryInfo（"C：Folder1"）2.3. dDir1．Delete（）4. 我們將dDir1變量定義為一個(gè)DirectoryInfo對(duì)象并設(shè)定它指向文件系統(tǒng)中的一個(gè)目錄，為了刪除一個(gè)文件夾，我們使用DirectoryInfo對(duì)象的Delete方法。） 作者：未知 來源：網(wǎng)絡(luò)

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

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

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.NET2010 如何復(fù)制指定目錄下按類型的所有文件到另一文件夾 復(fù)制后再刪除原來的文件？

這段代碼的問題是：

首先for each循環(huán)在files里查找文件對(duì)象，但是f變量聲明為string了，無法讓它獲取對(duì)象；

然后file.copy的變量file沒有任何聲明，也沒有初始化賦值等；

最后，整個(gè)for each循環(huán)里查找集合files的文件，由于初始化的循環(huán)計(jì)數(shù)器仍然按照最初設(shè)定的文件數(shù)目向后遞增（文件地址），但是實(shí)際文件刪除一部分，后續(xù)的文件位置就不能跟循環(huán)計(jì)數(shù)指針匹配了，所以默認(rèn)為查找不到文件，將會(huì)報(bào)錯(cuò)。一般的做法時(shí)把復(fù)制和刪除分別放在2次循環(huán)里，第一次只復(fù)制文件，第二次才去刪除。

本文名稱：vb.net刪除目錄,vb刪除文件夾下所有文件
文章出自：http://chinadenli.net/article19/dsijcdh.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供、App開發(fā)、微信小程序、動(dòng)態(tài)網(wǎng)站、微信公眾號(hào)、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)