您的位置：程序门 -> vb -> 基础类

vb fso 问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb fso 问题

发表于：2007-08-07 10:27:11 楼主

怎么样创建一个txt.并且可以追加记录~
例如创建一个file.txt 然后添加一条111111111111111
再次运行的时候.还在第二行添加一条2222222

发表于：2007-08-07 11:37:571楼得分:0

set ts = fso.opentextfile（ "d:\false.txt ", forappending, true, tristatefalse)　　拒绝的权限应该怎么改啊!!看一下哪里出错了

发表于：2007-08-07 11:44:402楼得分:0

option explicit

private sub command1_click（)
dim fso as new filesystemobject

if dir（ "f:\file.txt ", vbnormal) = " " then
fso.createtextfile "f:\file.txt "
end if

dim stream as textstream
set stream = fso.opentextfile（ "f:\file.txt ", forappending)

stream.writeline text1.text

stream.close

set stream = nothing
set fso = nothing

end sub

发表于：2007-08-07 11:48:183楼得分:0

第三个参数为true表示创建文件,而你的那个文件是存在的,所以会出现 "拒绝的权限 "的错误

下一篇：拖放网页内容,知道的进来帮帮忙了
上一篇：我想把一字符串"abc123"加密存入注册表.如何做?

其他资讯