批处理之家 - Powered by Discuz! Board

标题: [问题求助] if语句的一个问题[已解决] [打印本页]

作者: czjt1234 时间: 2012-4-12 16:02 标题: if语句的一个问题[已解决]

本帖最后由 czjt1234 于 2012-4-13 14:59 编辑

Dim fso,yn,ttfile
Set fso = CreateObject("Scripting.FileSystemObject")
yn = fso.FileExists("D:\test.txt")
msgbox yn,64
if yn then
	set ttfile = fso.GetFile("D:\test.txt")
	ttfile.delete
end if
复制代码

这样可以删除文件

Dim fso,yn,ttfile
Set fso = CreateObject("Scripting.FileSystemObject")
yn = fso.FileExists("D:\test.txt")
msgbox yn,64
if yn = 1  then
	set ttfile = fso.GetFile("D:\test.txt")
	ttfile.delete
end if
复制代码

用 yn = 1 就执行不了了
咋的？

作者: sz1121 时间: 2012-4-12 16:35

if yn = true then

作者: applba 时间: 2012-4-13 12:36

TRUE=-1,False=0

IF yn=-1 then或者 IF yn<>0 then

作者: czjt1234 时间: 2012-4-13 14:59

谢谢~~~~~~~~~~~~

欢迎光临批处理之家 (http://bbs.bathome.net/)