Rem : =========== 追加单行文本,文件不存在创建文件 Rem : =========== 文件必须存在 Rem : =========== line 中可以是单行,也可以是多行文本, Sub AppendLine( file, line ) Dim f f = Trim( file ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = False Then Err.Raise vbObjectError+128, "AppendLine", f & " does not exists" Dim errMsg On Error Resume Next Rem ====== code begin const forappending = 8 set objtextfile = fso.opentextfile (file, forappending, true) objtextfile.writeline(line) objtextfile.close Rem ====== code end If Err.Number <> 0 Then errMsg = Err.Description On Error Goto 0 Err.Raise vbObjectError+128, "AppendLine", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " line:" & vbTab & line Exit Sub End If End Sub
vbs脚本:AppendLine
最新推荐文章于 2024-04-09 22:31:12 发布