如何使用VB.NET制作一个软件,在固定文件夹中定时删除某些图片,

 我来答
roy1985xp
推荐于2016-07-16 · TA获得超过134个赞
知道小有建树答主
回答量:168
采纳率:0%
帮助的人:114万
展开全部
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添加一些控件吗,
追答
不需要的
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式