[求助]计划任务删除文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]计划任务删除文件

共有2133人关注过本帖树形打印复制链接主题：[求助]计划任务删除文件

blsu33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]计划任务删除文件 发帖心情

Post By：2015/8/29 23:14:00 [只看该作者]

老师，

计划任务执行有错误，请您指导一下

此主题相关图片如下：提示.png

Dim y,m,d As Integer

Dim dFile As New Dictionary(Of Date, String)

Dim drs,drs2 As List (of DataRow)

drs2=DataTables("备份").Select("[备份类型]='账套备份'")

For Each dr2 As DataRow In drs2

Dim namelen As Integer=dr2("备份计划名称").Length

Dim filelen As Integer=dr2("备份路径").Length

For Each File As String In FileSys.GetFiles(dr2("备份路径"))

If File.SubString(filelen,namelen)=dr2("备份计划名称") Then

dFile.Add(new Date(File.SubString(File.Length-12,8)),File)

End If

For Each k As Date In dFile.Keys

DateYMD(Date.Now,dFile(k),y,m,d)

If d>=dr2("删除旧备份天数") Then '如果距离上次备份已经超过天数的部分

If FileSys.FileExists("& dFile(k).Values &") Then

FileSys.DeleteFile("& dFile(k).Values &",2,2)

End If

dFile.Clear

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/30 10:06:00 [只看该作者]

Dim y,m,d As Integer
Dim dFile As New List(Of String)
Dim drs,drs2 As List (of DataRow)
drs2=DataTables("备份").Select("[备份类型]='账套备份'")
For Each dr2 As DataRow In drs2
    Dim namelen As Integer=dr2("备份计划名称").Length
    Dim filelen As Integer=dr2("备份路径").Length
    For Each File As String In FileSys.GetFiles(dr2("备份路径"))
        If File.SubString(filelen,namelen)=dr2("备份计划名称") Then
            Dim ifo As new FileInfo(file)
            Dim sp As TimeSpan = Date.Now - ifo.CreationTime
            If sp.TotalDays>=dr2("删除旧备份天数") Then '如果距离上次备份已经超过天数的部分
                dFile.Add(File)
            End If
        End If
    Next
Next
For Each f As string In dFile

    FileSys.DeleteFile(f,2,2)

Next

下一主题 >> << 上一主题

主题：[求助]计划任务删除文件