VBS中sub详细用法。

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文件夹里新建一个名为 我是新的文件夹 的文件夹

子程序是说的Sub，那种exe的不叫做子程序的

如果确实是VBScript的话（注意是脚本语言，是存成vbs那种的么？！）

set WSH=createobject("wscript.shell")

WSH.exec("A.exe")这个当前目录的

或者WSH.exec("other\a.exe")这个相对路径的

我怎么感觉你在写的是Visual Basic呢？

如果是VB的话用上面这个的话需要提前在工程-引用里面在Microsoft Scripting Runtime前面打勾

不过更简单的方法是用

Shell("a.exe")这种方法vbs是不能用的

---