如何使用VB.NET制作一个软件,在固定文件夹中定时删除某些图片,
1个回答
展开全部
Imports System.IO
Imports System.IO.Directory
' ======================================================
' 实现一个静态方法将指定文件夹下面的所有内容del
' 如果目标文件夹为只读属性就会报错。
' ======================================================
Public Shared Sub DelDir(ByVal srcPath As String, ByVal aimPath As String)
Try
' 检查目标目录是否以目录分割字符\结束,如果不是则添加之
If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then
aimPath += Path.DirectorySeparatorChar
End If
'判断源目录是否存在,不存在则退出.
If (Not Directory.Exists(srcPath)) Then Exit Sub
' 判断目标目录是否存在如果不存在则新建之
If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)
' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)
' 遍历所有的文件和目录
For Each FileName As String In fileList
' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
If Directory.Exists(FileName) Then
' 直接Delete文件
File.Delete(aimPath + Path.GetFileName(FileName))
end if
Next
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub
然后你定义一个timer设定循环时间,时间到则调用这个即可
追问
不是该用VS2015添加一些控件吗,
追答
不需要的
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询