关于Shell.Application对象的一些简单尝试

Set shellapp = CreateObject("Shell.Application")

'获取所有桌面的窗口：

Set oWindows = shellapp.Windows

'执行文件：

shellapp.ShellExecute("ipconfig.exe","/all")

shellapp.ShellExecute("notepad.exe")

'创建子文件夹：

sDir= "c:/automation"

set oFolder = shellapp.NameSpace(sDir)

oFolder.NewFolder("Newfolder")

'获取文件夹内容信息：

set oitems = oFolder.items
For each oitem in oitems
print oitem.name
Next

'以资源管理器的形式浏览指定的文件夹内容

shellapp.Explore "c:/automation"