对文件进行保存的时候,可能会遇到已经存在相同文件名的文件。此时,再次进行保存的时候会发生异常,那么想要保存当前这个文件的时候,我们就需要判断文件是否存在。如果文件存在我们就 Kill(fileName) ,然后再进行保存操作。
If Dir(FileName) <> "" Then
MsgBox ("文件存在")
Kill (FileName)
Else
MsgBox ("文件不存在")
End If
以上的解决思路,面临一个问题,就是一般无法确保文件Kill掉的文件是否有用。此时,可以通过更改文件名(原文件名+Time)的方式,进行一个备份。