[问题求助] if语句的一个问题[已解决]

czjt1234

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

if yn = true then

applba

TRUE=-1,False=0

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

czjt1234

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