VBScript 仅在文件不为空时附加文件

Posted 2023-03-11

【中文标题】VBScript 仅在文件不为空时附加文件

【英文标题】：VBScript Append file only if file is not blank

【发布时间】：2015-11-25 13:13:50

【问题描述】：

我已经编译了一个脚本，它在 .csv 文件的末尾添加了一个预告片（让读取它的程序知道它已经完成了数据传输。）无论如何，我试图弄清楚如何只添加这个如果引用的文件包含数据。

dim filesys, filetxt 
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set filetxt = filesys.OpenTextFile("C:\Test\Test.csv", ForAppending, True) 
filetxt.WriteLine(",,,,,,,,,,,," & vbCr)
filetxt.WriteLine(",,,,,,,,,,,," & vbCr)
filetxt.WriteLine(",,,,,,,,,,,," & vbCr)
filetxt.WriteLine(",,,,,,,,,,,," & vbCr)
filetxt.WriteLine(",,,,,,,,,,,," & vbCr)
filetxt.Close 

感谢任何帮助！

【参考方案1】：

尝试检查文件的大小：

strFile = "C:\file.txt"
SET objFSO = CREATEOBJECT("Scripting.FileSystemObject")
SET objFile = objFSO.GetFile(strFile)

If objFile.Size > 0 Then
   'do things here
Else
   'do nothing
End If

【讨论】：

这行得通，只是为了站点历史记录，第一个 IF 行在 objFile.size 中缺少一个“j”。谢谢！！！！