有些人认为操作文件是一件非常简单的是其实并不是如果你没有权限你就不能对文件进行更改但是我们今天不讲权限的问题我们来对VBNET复制删除文件这个问题进行简单的介绍一下
VBNET复制删除文件代码
VBNET版
ImportsSystemIO
ImportsSystemIODirectory
======================================================
实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面
如果目标文件夹为只读属性就会报错
======================================================
PublicSharedSubCopyDir(ByValsrcPathAsStringByValaimPathAsString)
Try
检查目标目录是否以目录分割字符\结束如果不是则添加之
IfaimPath(aimPathLength)<>PathDirectorySeparatorCharThen
aimPath+=PathDirectorySeparatorChar
EndIf
判断源目录是否存在不存在则退出
If(NotDirectoryExists(srcPath))ThenExitSub
判断目标目录是否存在如果不存在则新建之
If(NotDirectoryExists(aimPath))ThenDirectoryCreateDirectory(aimPath)
得到源目录的文件列表该里面是包含文件以及目录路径的一个数组
如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法
string[]fileList=DirectoryGetFiles(srcPath);
DimfileList()AsString=DirectoryGetFileSystemEntries(srcPath)
遍历所有的文件和目录
ForEachFileNameAsStringInfileList
先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
IfDirectoryExists(FileName)Then
CopyDir(FileNameaimPath+PathGetFileName(FileName))
否则直接Copy文件
Else
FileCopy(FileNameaimPath+PathGetFileName(FileName)True)
EndIf
Next
CatchexAsException
MessageBoxShow(exToString())
EndTry
EndSub
======================================================
实现一个静态方法将指定文件夹下面的所有内容Detele
测试的时候要小心*作删除之后无法恢复
======================================================
PublicSharedSubDeleteDir(ByValaimPathAsString)
Try
检查目标目录是否以目录分割字符结束如果不是则添加之
If(aimPath(aimPathLength)<>PathDirectorySeparatorChar)Then
aimPath+=PathDirectorySeparatorChar
EndIf
判断待删除的目录是否存在不存在则退出
If(NotDirectoryExists(aimPath))ThenExitSub
得到源目录的文件列表该里面是包含文件以及目录路径的一个数组
如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法
string[]fileList=DirectoryGetFiles(aimPath);
DimfileList()AsString=DirectoryGetFileSystemEntries(aimPath)
遍历所有的文件和目录
ForEachFileNameAsStringInfileList
If(DirectoryExists(FileName))Then
先当作目录处理如果存在这个目录就递归Delete该目录下面的文件
DeleteDir(aimPath+PathGetFileName(FileName))
Else
否则直接Delete文件
FileDelete(aimPath+PathGetFileName(FileName))
EndIf
Next
删除文件夹
SystemIODirectoryDelete(aimPathTrue)
CatchexAsException
MessageBoxShow(exToString())
EndTry
EndSub
以上就是关于VBNET复制删除文件的一个代码的演示跑跑试试吧!
