51Testing软件测试论坛

标题: 请教BuildPath 方法 [打印本页]

作者: lily_mu75 时间: 2006-12-30 11:48
标题: 请教BuildPath 方法
Function GetBuildPath(path,name)
  Dim fso, newpath
  Set fso = CreateObject("Scripting.FileSystemObject")
  newpath = fso.BuildPath(path, name)
  GetBuildPath = newpath
End Function

Dim tpath,tname
tpath="E:\TestInstance\qtp\qtpvbs"
tname="testone"
Call GetBuildPath(tpath,tname)

BuildPath 方法，如何将newpath设置为当前路径，可以将文件保存在当前路径下？
大家对这个问题都没兴趣吗？请各位版主帮帮忙啦？谢谢了！

[ 本帖最后由 lily_mu75 于 2006-12-30 13:20 编辑 ]

作者: xiaonan 时间: 2006-12-30 14:02
"如何将newpath设置为当前路径"

不太明白,你这里的路径,不是自己传进去的嘛

作者: lily_mu75 时间: 2006-12-30 14:19
标题: 回复 #2 xiaonan 的帖子
Function GetBuildPath(path,name)
  Dim f,fso, newpath,curpathname,myfile
  Set fso = CreateObject("Scripting.FileSystemObject")
  curpathname=fso.GetAbsolutePathName("E:")
  MsgBox(curpathname)
  curpathname=fso.GetFolder(path)
  MsgBox(curpathname)
  newpath = fso.BuildPath(path, name)
  GetBuildPath = newpath
  curpathname=fso.GetFolder(newpath)
  MsgBox(curpathname)
  MsgBox(newpath)
  Set myfile = fso.CreateTextFile("testfile.txt", True)
  MyFile.WriteLine("这是一个测试。")
  MyFile.Close
End Function

Dim tpath,tname
tpath="E:\TestInstance\qtp\qtpvbs"
tname="qtpvbs_sub"
Call GetBuildPath(tpath,tname)

假定上面的测试程序名字是：qtpvbs006,运行上面的程序，路径是传上去了，newpath的数值是E:\TestInstance\qtp\qtpvbs\qtpvbs_sub,但是文件testfile.txt是保存到路径E:\TestInstance\qtp\qtpvbs\qtpvbs006\下的，而不是保存到E:\TestInstance\qtp\qtpvbs\qtpvbs_sub\下面，也就是说newpath不是默认保存文件的路径，我问的问题是“如何将newpath设置为默认保存文件的路径？”是这个意思。请帮忙。

作者: xiaonan 时间: 2006-12-30 14:53
现在你想把testfile.txt保存到E:\TestInstance\qtp\qtpvbs\qtpvbs_sub下面是哇?

那先直接指定好,不就可以了吗
  a=curpathname & "\" & "testfile.txt"
  msgbox a
  Set myfile = fso.CreateTextFile(a, True)

作者: lily_mu75 时间: 2006-12-30 15:09
标题: 回复 #4 xiaonan 的帖子
谢谢！我也是这样做的。但是有些软件可以用一些方法或者属性来定义当前路径，也许在vbscript里没有直接设置当前路径的方法，就只有这样来做了。原本是想直接把默认的当前路径改了（也就是说重新设置保存文件的默认路径），再保存，看来vbscript没有这个功能。再次感谢你！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)