请教大虾，如何在vb程序中捕获因文件名相同系统产生的信息？急！！在线等

Question

Dir S_filename as String
Dim a
S_filename=文件名
if dir(S_filename)<>"" then'该文件名称存在
 a=msgbox ("该文件名称存在,是否替换？",vbyesno,"文件替换")
 if a=vbyes then  '替换
    kill S_filename
    copy 源文件,S_filename
 else'不替换
  
 end if
end if

Answer 1

你可以用dir检查一下目标文件是否存在

Answer 2

大概是我的中文不好吧，我没有弄懂您的意思如果按我的理解，他们上面的回答，已经解决了您的问题了看您最后的说明，我想您的意思大概是，如果该文件存在，就直接写入数据？如果是这个意思的话，我的回答是：1、用dir function确认
2、如果存在，则替换或者追加；不存在则创建
用file system object 可以很好的处理
当然，如果您愿意，也可以使用vb的open函数。