Forpersonaluseonlyinstudyandresearch;mercialuse蒁Action_Init羆OptionExplicit芅'=====================================================蚅Dimfso,file,filename,objTestLib,objmsgbox芀'=====================================================肆'createanewfilesystemobjecttooutputinformation蚆SetobjTestLib=createobject("")肃'createanewsqamsgboxobject聿Setobjmsgbox=CreateObject("")膆'=====================================================肇'"filename","""UI_Flag","""Appno1","""Appno2","""Appno3",""袁'=====================================================莆'defineaglobalfilenamevariable薄filename="c:\log\log"&mid(date,1,2)&mid(date,4,2)&""羄DataTable("filename",dtGlobalSheet)=filename蕿Setfso=CreateObject("")蚀Setfile=(filename,2,True)羅'=====================================================(file,3,"Thebeginningofallthescripts!")"WewillstartdemoforPresidio","AAAutoTest",3,0莆膄'===========================================蒁SetobjTestLib=nothing袀Setobjmsgbox=nothing螇Setfso=nothing薂Setfile=nothing膀罿袄LoginAsAdmin芄OptionExplicit罿'=================================================================罿Dimfso,file,filename,objTestLib,objmsgbox芅DimUI_Flag,TrueOrFlase螂'fetchfilenameformtheglobalsheet羂'filename="c:\"聿filename=("filename",dtGlobalSheet)螆'=================================================================蒄'createanewfilesystemobjecttooutputinformation螁Setfso=CreateObject("")腿Setfile=(filename,8,True)膇SetobjTestLib=createobject("")羁'createanewsqamsgboxobject薀Setobjmsgbox=CreateObject("")艿'=================================================================
一个完整QTP项目脚本 来自淘豆网m.daumloan.com转载请标明出处.
