全球主机交流论坛

标题: 求教VBS这段代码怎么修改！谢谢大婶 [打印本页]

作者: abmin 时间: 2013-5-11 14:43
标题: 求教VBS这段代码怎么修改！谢谢大婶
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
跨目录。。。。。

作者: 404 时间: 2013-5-11 14:48
fso.GetFolder后面那个.改成具体目录.....

作者: abmin 时间: 2013-5-11 14:59

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

感谢，可以了。谢谢大婶

欢迎光临全球主机交流论坛 (https://loc.888543.xyz/)