VB.net 移动文件夹去另一个地址，删除文件夹里某种类型的文件

1. move one folder including inside files/folders to another path. 把一个文件夹及其里面的所有文件/文件夹移去另一个地址。

e.g.把最近一次的log文件夹SourceFolder下的所有起始位Encrypted_* 字样的文件夹，及其这些文件夹里的所有文件，移去收藏文件夹TargetFolder下的以当时时间命名的文件夹下。

把D:\Input\Encrypted_2020移去D:\Input\Archive\20200119_102905\Encrypted_2020

SourceFolder='D:\Input\'
TargetFolder='D:\Input\Archive\'
Dim IndividualSubFolderName As String = DateTime.Now.ToString("yyyyMMddHHmmss".Substring(0, 8)) + "_" + DateTime.Now.ToString("yyyyMMddHHmmss".Substring(8, 6))If (Not System.IO.Directory.Exists(TargetFolder + IndividualSubFolderName)) ThenSystem.IO.Directory.CreateDirectory(TargetFolder + IndividualSubFolderName)
End IfDim SubDirs() As String
Dim i As Integer
SubDirs = Directory.GetDirectories(SourceFolder, "Encrypted_*")
For i = 0 To UBound(SubDirs)Dim Source As New DirectoryInfo(SubDirs(i))Dim FolderName As StringtFolderName = Source.NameMoveFolderTo(Source, TargetFolder + IndividualSubFolderName + "\" + FolderName)
Next

其中MoveFolderTo函数

Private Sub MoveFolderTo(ByVal fromPathInfo As DirectoryInfo, ByVal toPath As String)TryDirectory.Move(fromPathInfo.ToString, toPath)Catch ex As Exception_logger.LogException(ex)End Try
End Sub

2. 第1种情况的再举例

把D:\bin\Encrypted_2020移去D:\Input\Encrypted_2020

SourceFolder='D:\bin\Encrypted_2020'
TargetFolder='D:\Input\'
Dim SourceEncrypt As New DirectoryInfo(SourceFolder)
Dim IndividualSubFolderName As String = SourceEncrypt.Name
If (Not System.IO.Directory.Exists(TargetFolder)) ThenSystem.IO.Directory.CreateDirectory(TargetFolder)
End If
MoveFolderTo(SourceEncrypt, TargetFolder + IndividualSubFolderName)

3. 删除文件夹里所有的某种类型的文件

e.g. 删除fromPathInfo这个path下面所有.csv类型的文件

fromPathInfo='D:\Input\'
Private Sub DeleteAllFiles(ByVal fromPathInfo As String)Dim OriginalFilePath = New DirectoryInfo(fromPathInfo)Dim OriginalFilePathInfo As StringFor Each file As FileInfo In OriginalFilePath.GetFiles("*.csv")TryOriginalFilePathInfo = fromPathInfo + "\" + file.ToStringMy.Computer.FileSystem.DeleteFile(OriginalFilePathInfo)Catch ex As Exception_logger.LogException(ex)End TryNext
End Sub

VB.net 移动文件夹去另一个地址，删除文件夹里某种类型的文件相关推荐

linux列出一个目录及其子目录下面的某种类型的文件
linux列出一个目录及其子目录下面的某种类型的文件作者:smarteng ⁄ 时间:2009年07月09日 ⁄ 分类: Linux命令 ⁄ 评论:0 怎么样把,一个目录及其所有的子目录下面的某种类 ...
php ping 域名,怎么利用PHP去ping一个地址_PHP
Ping 怎么利用PHP去ping一个地址怎么利用PHP去ping一个地址请输入url或ip地址: ?lt;/td> if(($server == '127.0.0.1') | | ($se ...
启动服务器如何删除文件,在服务器启动时用Filter来删除某种类型的文件
简介这篇文章主要介绍了在服务器启动时用Filter来删除某种类型的文件以及相关的经验技巧,文章约1303字,浏览量409,点赞数3,值得参考! 代码: import java.io.File; imp ...
安装该设备时去现一个错误，系统找不到指定的文件
问题描述:安装USB设备时,安装设备时出现一个错误,系统找不到指定的文件. 问题处理:计算机出现上述错误,安装驱动后,出现上面的提示,点完成.又出现发现硬件信息,再安装又出现同样的错误,这样不停的出现 ...
virtualbox虚拟机linux共享文件夹,如何设置一个VirtualBox的共享文件夹的Linux虚拟机...
如何设置一个VirtualBox的共享文件夹的Linux虚拟机 (2011-08-15 11:24:55) 标签: computer software 杂谈第1步创建你的Windows机器共享文件 ...
java实现删除指定指定目录下面指定某种类型的文件
/*** 删除指定目录下面指定文件类型的文件** @param path*/public static void delSpecifyTheTypeFile(String path) {File di ...
shell判定文件夹下存在某种类型的文件
该例程用途: 判定/mnt文件夹下是否存在ko文件.存在则把ko文件mv到update文件夹下,不存在则从update文件夹中把ko文件mv过来 #!/bin/sh exist_file() {if ...
文件夹或文件已在另一个程序中打开，解决办法
在删除某一文件时,总会遇到一个提示:"操作无法完成,文件夹或文件已在另一个程序中打开",但又不清楚文件在哪里打开或者把文件全部关闭仍旧如此提示,此时,可试试下面的解决方法. 打开' ...
计算机无法删除u盘里东西,Win10系统电脑U盘里的文件夹无法删除怎么办？
U盘是经常需要用到的工具之一,U盘不仅可以存放大量的文件资料,而且还方便容易携带.但是近期,有网友在网络上提问说为什么自己U盘里的文件夹没法删除.为什么预防其他人也遇见这种问题,小编先给大家分享一下这 ...

VB.net 移动文件夹去另一个地址，删除文件夹里某种类型的文件

VB.net 移动文件夹去另一个地址，删除文件夹里某种类型的文件相关推荐

最新文章

热门文章