自动删除文件的问题 大神围观

1106140430

变量 开关
变量 at
变量 aa
变量 ret
变量 当前
//从这里开始执行
功能 执行()
    //从这里开始你的代码
        循环(开关)
             当前 = 当前时间()
        循环(at != 当前)

        at = 当前时间()
        aa = 时间年(at)&时间月(at)&时间日(at)
        ret=转字符型(aa)
    结束

        变量 删除 = 文件删除("d:/sdcard/"&aa&".txt")
        如果(删除 >= 0)
            等待(10000)
        结束
      等待(5000)
    结束
结束

功能 按钮0_点击()
    //这里添加你要执行的代码
    开关 = 真
    执行()
结束

功能 按钮1_点击()
    //这里添加你要执行的代码
    开关 = 假
结束


每当这个txt出现就给他删除怎么写大神帮帮忙啊  这个我运行删一次就卡了 我要把程序丢到那个文件夹 运行就行的   大神给个代码  谢谢了 txt文件的名字就是当前日期 例如20151216.txt  程序不关 一直删

言术

变量 线程句柄=0
功能 执行()
    变量 现在时间,名字
    循环(真)
        现在时间 = 当前时间()
        名字 = 时间年(现在时间)&时间月(现在时间)&时间日(现在时间)
        等待(500)
        如果(文件删除("d:/sdcard/"&名字&".txt") != 0)
            等待(10000)
        结束
        等待(5000)
    结束
结束
功能 按钮0_点击()
    如果(线程句柄==0)
        线程句柄=线程开启("执行","")
    结束
结束
功能 按钮1_点击()
    如果(线程句柄!=0)
        线程关闭(线程句柄)
        线程句柄=0
    结束
结束

1106140430

言术 发表于 2015-12-16 17:59
变量 线程句柄=0
功能 执行()
    变量 现在时间,名字

不能删除txt  我试了

1106140430

言术 发表于 2015-12-16 17:59
变量 线程句柄=0
功能 执行()
    变量 现在时间,名字

为什么我在我编译的机器上能用 到别的机器就不能用了