新建文本文件有则删除
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
页:
[1]