Vbscript 在非文本文件中插入行

我试图在非文本文件（文件扩展名为“dxf”）的中间插入行。我正在使用vbscript来完成此操作

无论我在哪里看到，我都会看到FileSystemObject.OpenTextFile。然而，当我试图在dxf文件上使用它时，它导致了一个错误：异常80070057（我认为这是一个无效的文件）

这是我的密码：

Dim file
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If fileexists(dxfFile$) Then
    Set file = fso.OpenTextFile(dxfPath, ForAppending, True)

    file.WriteLine("<PORTLIST TESTING>ASDFLKJ")
    file.Close
End If

Dim文件
模糊fso
设置fso=CreateObject（“Scripting.FileSystemObject”）
如果文件存在（dxfFile$），则
Set file=fso.OpenTextFile（dxfPath，ForAppending，True）
file.WriteLine（“ASDFLKJ”）
文件，关闭
如果结束

dxfFile$

不是有效的VBscript变量名；使用

dxfFile

、

file

或

dfxPath

（一致）

FileExists

是FileSystemObject的一种方法；您需要调用

fso.FileExists

未定义出现的

dxfFile

，也未定义出现的

dfxPath

，也未定义出现的

使用未定义/为空的first/filespec参数调用

.OpenTextFile

，会引发错误5-过程调用或参数无效

您不能通过追加行来插入；在VBScript中修改“中间”文件尤其笨拙；将整个文件加载到内存、编辑、写回可能对您有用

.DFX文件采用ASCII或二进制格式；如果是后者，则不能使用FileSystemObject（请参见ADODB.Stream）

---

我只需要和8号交换一下