qtp中用vbscript脚本为何没有新的文件夹生成？

lily_mu75

我在qtp中写了如下代码：
Sub AddNewFolder(path, folderName)
  Dim fso, f, fc, nf
  set path="C:\huangpl\huangpl_sub1\huangpl_sub2"
  set folderName=sub203
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(path)
  Set fc = f.SubFolders
  If folderName <> "" Then
    Set nf = fc.Add(folderName)
  Else
    Set nf = fc.Add("New Folder")
  End If
End Sub
结果在目录C:\huangpl\huangpl_sub1\huangpl_sub2下并没有生成素白sub203文件夹
请教高手我写的程序哪里有问题？

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

风过无息

Sub AddNewFolder(path, folderName)
  Dim fso, f, fc, nf
'  set path="C:\temp"
  'set folderName=sub203
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(path)
  Set fc = f.SubFolders
  If folderName <> "" Then
    Set nf = fc.Add(folderName)
  Else
    Set nf = fc.Add("New Folder")
  End If
End Sub
Call AddNewFolder("C:\temp","folder name")

因为是GetFolder，请确保你的path是存在的。

[ 本帖最后由 风过无息 于 2006-12-29 13:37 编辑 ]

lily_mu75

非常感谢！调试已经通过了。其中语句 Call AddNewFolder("C:\temp","folder name")中的folder name应为sub203，想必你忘记替代了。太感谢你了，我也真够笨的。sdlkfj9   sdlkfj6

wawa133

http://blog.51testing.com/?17691 ... ce_itemid_2117.html

呵呵....可以看看我的blog,里面有写!