Sub stringLine(fileName) Set fileBackupText = createobject("Scripting.FileSystemObject").opentextfile(fileName,8,True) fileBackupText.write vbCrlf & vbCrLf & string(35,"-") & vbCrLf & vbCrLf & vbCrLf fileBackupText.close
时间: 2024-04-20 15:22:52 浏览: 104
这段代码是用来在一个文件中插入分隔符和空行的。它首先通过创建 `FileSystemObject` 对象来打开指定的文件,然后使用 `opentextfile` 方法以写入模式打开文件。接着,它使用 `write` 方法写入一个换行符、两个回车符和一个由连续35个破折号组成的字符串,然后再写入三个空行。最后,使用 `close` 方法关闭文件。
阅读全文