求教VBS这段代码怎么修改！谢谢大婶

abmin

dim fr(70)
diyi
i=0
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set oExcel=CreateObject("excel.application")
fd=fso.getfolder(".").path
if fso.fileexists(fd&"\"&Month(now)&"."&day(now)&"节目表.xls") then
file=fd&"\"&Month(now)&"."&day(now)&"节目表.xls"
elseif fso.fileexists(fd&"\"&Month(now)&"."&day(now)&"节目表.xls") then
file=fd&"\"&Month(now)&"."&day(now)&"節目表.xls"


我想修改成不是在当前目录下寻找节目表这个文件，而是在C:\Documents and Settings\  这里寻找，怎么修改呢？？？

l12ab

跨目录。。。。。

404

fso.GetFolder后面那个.改成具体目录.....

abmin

404 发表于 2013-5-11 14:48
fso.GetFolder后面那个.改成具体目录.....

感谢，可以了。谢谢大婶