星火baba

Set objFileSysOb = CreateObject("Scripting.FileSystemObject")Set colFolderName = objFileSysOb.GetFolder("Give your Parent Folder path here")Set vFiles =colFolderName.Filesdim f, datecreated, las

作者：xuyubo时间：2012/10/31 版权所有，侵权必究。出处：http://blog.youkuaiyun.com/xuyubotestArray Basics:Some basic info about creating and using arrays.' 简单的定义ArrayDim strCustomers() ' 定义一个Array，然后赋值Dim

'1)Abs Function'Returns the absolute value of a numberDim VNumVNum = Abs(-123.44)MsgBox VNum'2)ArrayFunction'返回包含在一个数组里的变量值Dim anyAanyA = Array("V1","V2","V3")MsgBox anyA(0)'

Adds a key and item pair to a Dictionary object.An error occurs if the key already exists.The following example illustrates the use of the Add method.  Dim d ' Create a variable.Set d = Cr

'Locate Method' Using Locate to determine if specific text exists within a string. MsgBox LocateText("http://blog.youkuaiyun.com/xuyubotest", "xuyubotest")MsgBox LocateText("http://blog.youkuaiyun.com/x

'=====================================Class c        Public a1        Public a2        Public Sub  s()                a1=1                a2=2        EndSubEnd ClassDim c1Set c1=

1. UCase：返回字符串的大写形式 UCase(string)eg:   Dim MyWord  MyWord = UCase("Hello World") '返回"HELLO WORLD"2.Dim counter,numcounter = 0num = 9Do Until num = 10num = num -1counter = c

在QTP测试中，比较本地的两个文件是不是相同，需要使用VBScript的FileSystemObject对象，在此作简要的概述　　一．基础FileSystemObject　　1. 创建 FileSystemObject 对象　　Dim fso　　Set fso = CreateObject("Scripting.FileSystemObject")　　Scripting 是类型

Set myReg = New RegExpmyReg.Global = TruemyReg.IgnoreCase = TruemyReg.Pattern = "[a-z0-9]{2,7}@163.com"msgbox myReg.Test("test@163.com")msgbox myReg.Test("ttttttttteeeeeeeeeeet@163.com")

str = "This a test for InStr split lbound ubound mid"Dim aa = split(str," ")'msgbox lbound(a)'msgbox ubound(a)For i = lbound(a) to Ubound(a)    msgbox(a(i))next'rec = InStr(1,str,"

职业交流，不谈政治，诽谤性话题QTP,LR,Selenium,Python网络安全；QTP企业内训，自动化框架培训