中国DOS联盟

set fs=wscript.createobject("scripting.filesystemobject")

if (fs.folderexists("f:\2"))

s="is available"

else

s="not exist"

set foldr=fs.createfolder("f:\2")

end if
为什么运行不起来？
还有没搞明白 s="is available" 是什么意思~!请各位大哥解释一下~!


───────────────────　版务记录　────────────────────
执行：lxmxn
标题：请问~！VBS新手问题
说明：因标题表述过于模糊，不便于论坛的搜索和管理，请在三日内修改标题。
提示：修改标题请在当前帖的右下脚点 编辑，修改完毕之后按 编辑帖子 即可。
处罚：因属论坛新人，暂时不予处罚；若三日之后尚未修改标题，将扣除2点积分，
　　　以示惩罚，并由版主强制修改标题。请点击这里阅读论坛发帖规定或者查看
　　　提问的智慧，以避免在今后的讨论中违规发帖。
───────────────────　版务记录　────────────────────


Last edited by sd287054 on 2007-5-22 at 12:38 AM ]

请注意句子的完整性，给你一个能运行的VBS例子：

set fs=wscript.createobject("scripting.filesystemobject")
if fs.folderexists("c:\temp") then
s=" 文件夹Temp已经存在！"
else
s="文件夹Temp不存在，已经为你创建了此文件夹。"
set f=fs.createfolder("c:\Temp")
end if
Wscript.Echo s


If...Then...Else 语句
根据表达式的值有条件地执行一组语句。

If condition Then statements

或者，使用块形式的语法：

If condition Then


] . . .

]
End If

参数
condition

一个或多个下面两种类型的表达式：

数值或字符串表达式，其运算结果是 True 或 False。如果 condition 是 Null，则 condition 被视为 False。

形如 TypeOf objectname Is objecttype 的表达式。objectname 是任何对象的引用，而 objecttype 则是任何有效的对象类型。如果 objectname 是 objecttype 所指定的一种对象类型，则表达式为 True；否则为 False。

Statements

如果 condition 为 True 时，执行的一条或多条（以冒号分开）语句。

condition-n

同 condition。

elseifstatements

如果相关的 condition-n 为 True时，执行的一条或多条语句。

elsestatements

如果前面没有 condition 或 condition-n 表达式为 True 时，执行的一条或多条语句。

说明
对于短小简单的测试，可以使用单行形式（第一种语法）。但块形式（第二种语法）提供了比单行形式更强的结构化与适应性，比较容易阅读、维护及调试。

注意 在单行语法中，可以执行多条语句作为 If...Then 判断的结果，但所有语句必须在同一行上并且以冒号分开，如下列语句所示：

If A > 10 Then A = A + 1 : B = B + A : C = C + B
当程序运行到 If 块（第二种语法）时，将测试 condition。如果 condition 是 True，则执行 Then 之后的语句。如 condition 是 False，则每个 ElseIf 部分的条件式（如果有的话）会依次计算并加以测试。当找到某个为 True 的条件时，则其相关的 Then 之后的语句会被执行。如没有一个 ElseIf 语句是 True（或没有 ElseIf 子句），则将执行 Else 之后的语句。执行 Then 或 Else 之后的语句以后，将继续执行 End If 之后的语句。

Else 和 ElseIf 子句都是可选项的。在 If 块中可以放置任意多个 ElseIf 子句，但是都必须在 Else 子句之前。If 块语句可以被嵌套，即被包含在另一个 If 块语句之中。

要判断某个语句是否是一个 If 块，可检查 Then 关键字之后是什么。如果在 Then 的同一行之后还有其他非注释的内容，则此语句就是单行形式的 If 语句。

If 块语句必须是某一行的第一条语句，并且必须以 End If 语句结束。

Last edited by axi on 2007-5-17 at 06:08 PM ]

Set fs=WScript.CreateObject("scripting.filesystemobject")
If (fs.folderexists("f:\2")) Then
s="is available"
Else
s="not exist"
Set foldr=fs.CreateFolder("f:\2")
End If

"is available"： 可用的，意思是“准备好了，已经存在，可以直接使用”

谢谢，哥哥们了，，~!看明白点了~!