函数功能,根据关键字遍历指定路径下的文件,否则返回字符串None
function getfilename(pathx,keyword)
for each file in fso.GetFolder(pathx).Files
prearray = split(file.Name,".",-1)
vbs = prearray(0)
if instr(file.name,keyword) then
getfilename = file.name
exit for
else
getfilename = "None"
end if
next
end function