主页 > 知识库 > vbs向指定的文件添加内容的函数

vbs向指定的文件添加内容的函数

热门标签:服务器配置 美图手机 银行业务 铁路电话系统 呼叫中心市场需求 检查注册表项 网站文章发布 智能手机
复制代码 代码如下:

'向指定的文件写字符串,第三个参数指定是否删除原来的内容
Function Z_WriteFile(sFileName, sText, bAppend)
Dim fs, fso, iomode
if bAppend = True Then
iomode = 8 'ForAppending
else
iomode = 2 'ForWriting
end if
set fs = CreateObject("Scripting.FileSystemObject")
set fso = fs.OpenTextFile(sFileName, iomode, True) '第三个参数表明文件不存在,则新建文件
fso.WriteLine sText
fso.Close
set fso = Nothing
set fs = Nothing
End Function

Dim path, sFileName, sText
path = "E:\Program\VBScript"
sFileName = path "\1.txt"
sText = "what can I do for you"
Z_WriteFile sFileName, sText, True

Z_WriteFile中的第三个参数指定向文件末尾添加内容还是清除原来的内容再插入内容。

标签:新疆 乐山 沈阳 沧州 长治 上海 红河 河南

巨人网络通讯声明:本文标题《vbs向指定的文件添加内容的函数》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266