7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jzqforfreedom 2004-04-20
- 打赏
- 举报
我懂了
结贴
把mljboy(笑三少) 程序稍微改改就好了
谢谢大家
顺便说 wwqna(york) 的方法不行
结贴
把mljboy(笑三少) 程序稍微改改就好了
谢谢大家
顺便说 wwqna(york) 的方法不行
jzqforfreedom 2004-04-20
- 打赏
- 举报
to wwqna(york)
strtmp="c:\1.txt"
open strtmp for output as #1
print #,""
debug.print lof(1) '这行是我添加的
close #1
添加我写的行后显示文件长度为2
strtmp="c:\1.txt"
open strtmp for output as #1
print #,""
debug.print lof(1) '这行是我添加的
close #1
添加我写的行后显示文件长度为2
jzqforfreedom 2004-04-20
- 打赏
- 举报
mljboy(笑三少)
你所创建的文件个删除的文件是哪个？
filename是不是可以用文件路径代替？
你所创建的文件个删除的文件是哪个？
filename是不是可以用文件路径代替？
wwqna 2004-04-20
- 打赏
- 举报
strtmp="c:\1.txt"
open strtmp for output as #1
print #,""
close #1
这个方法最简单了
open strtmp for output as #1
print #,""
close #1
这个方法最简单了
mljboy 2004-04-20
- 打赏
- 举报
Dim fso As Variant
mljboy 2004-04-20
- 打赏
- 举报
删除该文件,然后从新建一个同名的文件
Dim fs As Variant
Set fs = CreateObject("scripting.filesystemobject")
If fs.FileExists(filename) Then
fs.DeleteFile (filename) '删除该文件
Set fso = fs.CreateTextFile(filename) '创建同名空文件
.
.
;
end if
Dim fs As Variant
Set fs = CreateObject("scripting.filesystemobject")
If fs.FileExists(filename) Then
fs.DeleteFile (filename) '删除该文件
Set fso = fs.CreateTextFile(filename) '创建同名空文件
.
.
;
end if
jzqforfreedom 2004-04-20
- 打赏
- 举报
to extcsdn(Studing VB now)
fso是个什么东西啊，具体语法怎么写的？麻烦解说，谢谢
fso是个什么东西啊，具体语法怎么写的？麻烦解说，谢谢
Rex_love_Burger 2004-04-20
- 打赏
- 举报
最好用fso创建一个同名的空文件覆盖原来的文件
道素 2004-04-20
- 打赏
- 举报
你干脆删除那个文件，然后创建一个空的，对了什么格式的文件
如果格式复杂，作个空的备份，每次删除旧的由它复制一个新的
如果格式复杂，作个空的备份，每次删除旧的由它复制一个新的
jzqforfreedom 2004-04-20
- 打赏
- 举报
没人回，自己先顶
