有些人認為操作文件是一件非常簡單的是其實並不是如果你沒有權限你就不能對文件進行更改但是我們今天不講權限的問題我們來對VBNET復制刪除文件這個問題進行簡單的介紹一下
VBNET復制刪除文件代碼
VBNET版
Imports SystemIO
Imports SystemIODirectory
======================================================
實現一個靜態方法將指定文件夾下面的所有內容copy到目標文件夾下面
如果目標文件夾為只讀屬性就會報錯
======================================================
Public Shared Sub CopyDir(ByVal srcPath As String ByVal aimPath As String)
Try
檢查目標目錄是否以目錄分割字符\結束如果不是則添加之
If aimPath(aimPathLength ) <> PathDirectorySeparatorChar Then
aimPath += PathDirectorySeparatorChar
End If
判斷源目錄是否存在不存在則退出
If (Not DirectoryExists(srcPath)) Then Exit Sub
判斷目標目錄是否存在如果不存在則新建之
If (Not DirectoryExists(aimPath)) Then DirectoryCreateDirectory(aimPath)
得到源目錄的文件列表該裡面是包含文件以及目錄路徑的一個數組
如果你指向copy目標文件下面的文件而不包含目錄請使用下面的方法
string[] fileList = DirectoryGetFiles(srcPath);
Dim fileList() As String = DirectoryGetFileSystemEntries(srcPath)
遍歷所有的文件和目錄
For Each FileName As String In fileList
先當作目錄處理如果存在這個目錄就遞歸Copy該目錄下面的文件
If DirectoryExists(FileName) Then
CopyDir(FileName aimPath + PathGetFileName(FileName))
否則直接Copy文件
Else
FileCopy(FileName aimPath + PathGetFileName(FileName) True)
End If
Next
Catch ex As Exception
MessageBoxShow(exToString())
End Try
End Sub
======================================================
實現一個靜態方法將指定文件夾下面的所有內容Detele
測試的時候要小心*作刪除之後無法恢復
======================================================
Public Shared Sub DeleteDir(ByVal aimPath As String)
Try
檢查目標目錄是否以目錄分割字符結束如果不是則添加之
If (aimPath(aimPathLength ) <> PathDirectorySeparatorChar) Then
aimPath += PathDirectorySeparatorChar
End If
判斷待刪除的目錄是否存在不存在則退出
If (Not DirectoryExists(aimPath)) Then Exit Sub
得到源目錄的文件列表該裡面是包含文件以及目錄路徑的一個數組
如果你指向Delete目標文件下面的文件而不包含目錄請使用下面的方法
string[] fileList = DirectoryGetFiles(aimPath);
Dim fileList() As String = DirectoryGetFileSystemEntries(aimPath)
遍歷所有的文件和目錄
For Each FileName As String In fileList
If (DirectoryExists(FileName)) Then
先當作目錄處理如果存在這個目錄就遞歸Delete該目錄下面的文件
DeleteDir(aimPath + PathGetFileName(FileName))
Else
否則直接Delete文件
FileDelete(aimPath + PathGetFileName(FileName))
End If
Next
刪除文件夾
SystemIODirectoryDelete(aimPath True)
Catch ex As Exception
MessageBoxShow(exToString())
End Try
End Sub
以上就是關於VBNET復制刪除文件的一個代碼的演示跑跑試試吧!
From:http://tw.wingwit.com/Article/program/net/201311/11756.html