求教VBS这段代码怎么修改！谢谢大婶 [复制链接]
查看:43 | 回复:3

abmin · 发表于 2013-5-11 14:43:05

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 · 发表于 2013-5-11 14:47:17

跨目录。。。。。

404 · 发表于 2013-5-11 14:48:42

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

abmin · 发表于 2013-5-11 14:59:58

404 发表于 2013-5-11 14:48

fso.GetFolder后面那个.改成具体目录.....
感谢，可以了。谢谢大婶

求教VBS这段代码怎么修改！谢谢大婶 [复制链接] 查看:43 | 回复:3

求教VBS这段代码怎么修改！谢谢大婶 [复制链接]
查看:43 | 回复:3