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

'——————————————————————————————————————————————————
'作者：daven
'时间：2009-09-02
'功能：
'                    实现自动化测试写字板打开，并录入字符，然后保存为文件，
'    直到保存完指定个数为止。
'——————————————————————————————————————————————————
Dimfso,num,fldr    
Setfso = CreateObject("Scripting.FileSystemObject")
num=Cint(inputbox("请输入要输出文件的个数(为数值0-9)：","输入文件个数"))
If    fso.folderexists("c:\test") =false    Then
  fldr = fso.CreateFolder("C:\test")
else
     fldr="C:\test"
EndIf
Ifnum >0Then
  Fori=1tonum 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 =trueThen
      window("写字板").Dialog("保存为").Dialog("保存为").WinButton("是(Y)").Click
      keytest.SendKeys"%{F}"
      keytest.sendkeys"{X}"
    else
        keytest.SendKeys"%{F}"
      keytest.sendkeys"{X}"
    EndIf
  Next
else
  msgbox"请输入大于0的数!"
EndIf