[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 czjt1234 于 2012-4-13 14:59 编辑
  1. Dim fso,yn,ttfile
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. yn = fso.FileExists("D:\test.txt")
  4. msgbox yn,64
  5. if yn then
  6. set ttfile = fso.GetFile("D:\test.txt")
  7. ttfile.delete
  8. end if
复制代码
这样可以删除文件
  1. Dim fso,yn,ttfile
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. yn = fso.FileExists("D:\test.txt")
  4. msgbox yn,64
  5. if yn = 1  then
  6. set ttfile = fso.GetFile("D:\test.txt")
  7. ttfile.delete
  8. end if
复制代码
用 yn = 1 就执行不了了
咋的?
1

评分人数

    • broly: 感谢给帖子标题标注[已解决]字样PB + 2

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

TOP

TRUE=-1,False=0

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

评分人数

    • broly: 乐于助人技术 + 1

TOP

if yn = true then
1

评分人数

TOP

返回列表