VBS中sub详细用法。

Question

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

Answer 1

sub（子程序）：和function（函数）差不多，不过sub没有返回值。调用：计算机编或运行时，使用某个函数来完成相关命令。在程序中通过对函数的调用来执行函数体，其过程与其它语言的子程序调用相似。例：sub a() '定义一个sub a()dim bb=1msgbox bend subcall 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) '在这个文件夹下创建新的文件夹ElseSet nf = fc.add("new folder") '在这个文件夹下创名为new folder的文件夹End IfEnd Subaddnewfolder "d:\","我是新的文件夹" '在D盘新建一个名为 我是新的文件夹 的文件夹addnewfolder "d:\123","我是新的文件夹" '在D盘123文件夹里新建一个名为 我是新的文件夹 的文件夹