VBS代码,利用Wscript.Shell,可以自动读取当前文件夹名称的函数