Question

我编译了一个脚本，在.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

感谢任何帮助！

Answer 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

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

1 个答案: