VB使用Kill删除文件时提示文件未找到

关于VB使用Kill删除文件时提示“文件未找到”

---------------------------------------------------------------------------------

出问题的代码：

 

    '删除原有的备份文件

    Kill (App.Path & "/setting/DateRemind_bak.ini")

    '备份原有的配置文件

    Name App.Path & "/setting/DateRemind.ini" As App.Path & "/setting/DateRemind_bak.ini" 

 

    '将临时文件改成默认文件名

    Name App.Path & "/setting/DateRemind2.ini" As App.Path & "/setting/DateRemind.ini"

 

    '设置只读和系统属性，防止文件内容被随便修改

    SetAttr App.Path & "/setting/DateRemind.ini", vbReadOnly + vbSystem

=====================================================================

 

原因：

    由于原来的备份文件带有“只读”和“系统文件”的属性，因而使用Kill时提示“文件未找到”

 

-----------------------

解决办法：

    在删除文件前清除文件属性。

 

添加代码：

    SetAttr App.Path & "/setting/DateRemind_bak.ini", vbNormal