vb6检测代码

例如：

检测D盘里是否存在1.txt

如果存在将执行

把123456输入进D盘1.txt里

如果D盘没有1.txt将在D盘创建1个1.txt

结束

我有思路没代码，命令代码我都不知道！

请高手根据我的例子写一下！

if dir("d:\1.txt")<>"" then

msgbox "这个文件存在，并写如数据"

open "d:\1.txt" for output as #1

print #1,"123456"

close #1

else

msgbox "这个文件不存在"

end if

在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用vb 6.0提供的filesystemobject对象。 　　filesystemobject对象不是vb内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“microsoft scripting runtime”，然后利用filesystemobject的fileexists方法来判断文件是否存在。示例程序代码如下： 　　private sub command1_click() 　　 ′引用filesystemobject对象 　　 dim fs as new filesystemobject 　　 ′利用filesystemobject对象的fileexists 　　 ′方法判断文件是否存在 　　 if fs.fileexists(″c:＊.gif″) then 　　 msgbox ″文件存在″ 　　 else 　　 msgbox ″文件不存在″ 　　 end if 　　end sub 　　灵活运用filesystemobject对象可以解决与文件操作有关的大部分问题

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息