VBS中sub详细用法。

Question

例如下面这个代码sub是干什么的？谢谢代码如下：subaddnewfolder(path,foldername)dim fso,f,fc,nfset fso = createobject("scripting.filesystemobject")set f = fso.getfolder(path)set fc = f.subfoldersif foldername <> "" thenset nf = fc.add(foldername)elseset nf = fc.add("new folder")end ifend sub顺便解释下，谢谢。

Answer 1

sub（子程序）：和function（函数）差不多，不过sub没有返回值。
调用：计算机编或运行时，使用某个函数来完成相关命令。在程序中通过对函数的调用来执行函数体，其过程与其它语言的子程序调用相似。
例：
sub a() '定义一个sub a()
dim b
b=1
msgbox b
end sub
call a()'调用sub a()

Answer 2

Sub addnewfolder(path,foldername) '新建文件夹函数
Dim fso,f,fc,nf '定义变量
Set fso = CreateObject("scripting.filesystemobject") '插件fso对象
Set f = fso.getfolder(path) '取得path参数的文件夹对象
Set fc = f.SubFolders 'path参数文件夹下的子文件夹
If foldername <> "" Then '如果要创建的文件名存在
Set nf = fc.add(foldername) '在这个文件夹下创建新的文件夹
Else
Set nf = fc.add("new folder") '在这个文件夹下创名为new folder的文件夹
End If
End Sub

addnewfolder "d:\","我是新的文件夹" '在D盘新建一个名为 我是新的文件夹 的文件夹
addnewfolder "d:\123","我是新的文件夹" '在D盘123文件夹里新建一个名为 我是新的文件夹 的文件夹