星火baba

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

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

'1)Abs Function 'Returns the absolute value of a number Dim VNum VNum = Abs(-123.44) MsgBox VNum '2)ArrayFunction '返回包含在一个数组里的变量值 Dim anyA anyA = 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         EndSub End Class Dim c1 Set c1=

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

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

Set myReg = New RegExp myReg.Global = True myReg.IgnoreCase = True myReg.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 a a = 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企业内训，自动化框架培训