on error resume nextSet fso = CreateObject("Scripting.FileSystemObject")set args = wscript.argumentsif args.count1 or not(fso.FolderExists(args(0))) then set sh = createobject("shell.application")set fol = sh.browseforfolder(0,"选择包含位图片的目录",0,"e:\")if fol is nothing then wscript.quitset fol = fol.selfpt = fol.pathelse pt = ar...