新建文本文件有则删除

清风明月名字

Function 新建文本文件有则删除(文本文件完整名称)
'建一个原不存在的文本文件的VBA代码适用于CAD\EXCEL\WORD
Dim tFile As Object, TSO As Object
Set TSO = CreateObject("Scripting.FileSystemObject")
'新建一个原不存在的文本文件
Set tFile = TSO.CreateTextFile(文本文件完整名称, True)
'输入内容
  tFile.Close
Set tFile = Nothing
Set TSO = Nothing
End Function