【qtp脚本】实现自动创建目录并通过测试写字板生成指定个数的文件

源码如下：

'――――――――――――――――――――――――――――――――――――――――――――――――――
'作者：daven
'时间：2009-09-02
'功能：
' 实现自动化测试写字板打开，并录入字符，然后保存为文件，
' 直到保存完指定个数为止。
'――――――――――――――――――――――――――――――――――――――――――――――――――
Dim fso,num,fldr
Set fso = CreateObject("Scripting.FileSystemObject")
num=Cint(inputbox("请输入要输出文件的个数(为数值0-9)：","输入文件个数"))
If fso.folderexists("c:\test") = false Then
fldr = fso.CreateFolder("C:\test")
else
fldr="C:\test"
End If
If num >0 Then
For i=1 to num step 1

window("Window").WinButton("开始").Click
set keytest =CreateObject("WScript.Shell")
keytest.SendKeys "{R}"
dialog("运行").WinEdit("打开(O):").Set"wordpad.exe"
dialog("运行").WinButton("确定").Click
Window("写字板").Activate
window("写字板").WinObject("RICHEDIT50W").Click
window("写字板").WinObject("RICHEDIT50W").Type "this a test"
keytest.SendKeys "%{F}"
keytest.sendkeys "{A}"
window("写字板").Dialog("保存为").WinEdit("文件名(N):").Set fldr &"\text" & i & ".rtf"
window("写字板").Dialog("保存为").WinButton("保存(S)").Click
If window("写字板").Dialog("保存为").Dialog("保存为").Exist = true Then
window("写字板").Dialog("保存为").Dialog("保存为").WinButton("是(Y)").Click
keytest.SendKeys "%{F}"
keytest.sendkeys "{X}"
else
keytest.SendKeys "%{F}"
keytest.sendkeys "{X}"
End If
Next
else
msgbox "请输入大于0的数!"
End If
使用qtp9.5版本，附件为源码包本文出自 “好事成双” 博客，请务必保留此出处http://daven.blog.51cto.com/18445/198011