【软件自动化测试-QTP实战技能 12】== QTP 返回磁盘 freeSpace

最新推荐文章于 2024-06-26 16:11:58 发布
原创 最新推荐文章于 2024-06-26 16:11:58 发布 · 4.1k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#磁盘 #测试 #c

本文介绍了一段VBScript代码，用于获取指定驱动器的基本信息，包括驱动器名称、可用空间等。通过创建Scripting.FileSystemObject对象并调用其方法，可以实现对磁盘驱动器属性的读取。

 

    Dim fso, d, s

   drvPath="c:/"

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set d = fso.GetDrive(fso.GetDriveName(drvPath))

   s = "Drive " & UCase(drvPath) & " - "

   s = s & d.VolumeName   & "<BR>"

   s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0)

   s = s & " Kbytes"

   ShowFreeSpace = s



   msgbox ShowFreeSpace

【软件自动化测试-QTP实战技能 25】== QTP_DataTable
星火baba
09-13 1733
一：      'Methods of getting a Data Table value      val = DataTable.Value("ParamName",dtGlobalSheet)      val = DataTable.Value("ParameName","Global")          '  二： 1、DataTable方法GetRo
软件测试自动化-QTP系列讲座10QTP的两种回放模式
03-23
当你在回放QTP的时候，你是否有注意过QTP在回放的时候鼠标是没有运动的有些朋友肯定会问，既然是CLICK点击为...-鼠标跟踪 　Event模式就是我们平时默认用的模式，也就是事件，其实QTP的click方法只是触发了对象的CLICK
vbs判断磁盘类型和检测硬盘剩余空间的实现代码
最新发布
Oona_01的博客
06-26 110
这篇文章主要介绍了vbs判断磁盘类型和检测硬盘剩余空间的实现代码,需要的朋友可以参考下。
两种方法，获取磁盘剩余空间--PYTHON
weixin_34232617的博客
08-09 885
import ctypes import os import platform import sys def get_free_space_mb(folder): """ Return folder/drive free space (in bytes) """ if platform.system() == 'Windows': ...
【软件自动化测试-QTP实战技能 28】== Minimize QTP
星火baba
10-30 967
作者：xuyubo 时间：2012/10/30 版权所有，侵权必究。 出处：http://blog.csdn.net/xuyubotest 'Minimize QTP '此函数可以帮助大家在执行脚本时最小化QTP界面   'Minimize the main QTP window. ' ========================================
【软件自动化测试-QTP实战技能 24】== QTP Code_ Useing Description Objects
星火baba
09-02 493
Dim objLogout Dim objUser Dim objPass Dim objRemember ' create description objects for each item we are dealing with Set objLogout   = Description.Create() Set objUser     = Description.Create
【软件自动化测试-QTP实战技能 27】== QTP open ldif file
星火baba
10-12 463
Set obj=CreateObject("Scripting.FileSystemObject") Set oFile=obj.OpenTextFile("C:/JX/WorkSpace/test.ldif",1) msgbox oFile.ReadLine Set obj=Nothing Set oFile=Nothing
【软件自动化测试-QTP实战技能 13】== QTP 判断 files Exists
星火baba
10-12 1732
Set fso = CreateObject("Scripting.FileSystemObject") filepath= "C:/JX/WorkSpace/ t.xls" If (fso.FileExists(filepath) )Then     msgbox filepath & "exists" Else    msgbox filepath & "doesn't exist"
【软件自动化测试-QTP实战技能 28】== QTP_VbsTraining:Array Basics
星火baba
10-31 836
作者：xuyubo 时间：2012/10/31 版权所有，侵权必究。 出处：http://blog.csdn.net/xuyubotest Array Basics: Some basic info about creating and using arrays. ' 简单的定义Array Dim strCustomers()   ' 定义一个Array，然后赋值 Dim
【软件自动化测试-QTP实战技能 11】== QTP code for excel link
星火baba
10-11 500
Dim objWorkbook xl_path="../test.xls" Set gObjExcel = CreateObject("Excel.Application") gObjExcel.DispalyAlerts = 0 Set objWorkbook = gObjExcel.Workbooks.Open(xl_path)   'Here the excel link is
软件自动化测试工具QTP/UFT操作步骤
07-08
自动化测试介绍，自动化测试工具QTP/UFT介绍，使用步骤
软件测试自动化-QTP系列讲座
03-23
大多数时间还是处于学习阶段，包括现在还在学习，纵观现今的网络中一直没有找到过一个非常完整以及能够结合实际例子的QTP教程或者说是讲座，因此从今天开始我准备把两年来学习到的一些QTP知识包括自动化测试等进行...
【软件测试自动化-QTP系列讲座9】AutoItX技术的应用
03-23
首先介绍一下AutoIt: 　AutoItv3是用以编写并生成具有BASIC语言风格的脚本程序的免费软件，它被设计用来在WindowsGUI(用户界面)中进行自动操作。通过它可以组合使用模拟键击、鼠标移动和窗口/控件操作等来实现自动化...
UFT 12破解&无限试用
热门推荐
星火baba
09-02 2万+
方法： 1. 删除C:\ProgramData隐藏目录下的SafeNet Sentinel文件夹 2.运行QTP安装目录下的bin\instdemo.exe 3. 重新运行QTP/UFT 12后即可恢复30天试用
【软件自动化测试-QTP实战技能 21】== QTP_use RegExp 匹配numbers
星火baba
10-22 1万+
Dim Matches,Match,re Set re=new RegExp 'creates a new regexp object s="you are 33 a ee7" re.Global = True '完全匹配 re.pattern="/d+" set Matches=re.execute(s) For each Match in Matches
qtp_数据驱动测试方法
星火baba
03-21 6564
１． datatable         QTP本身程序就给我们提供了这么一个数据表，我们可以把测试数据或 测试用例 填入这个数据表中．如：设计用例　　 username　　passwd case1　　mercury mercury case2 xxxxxxx xxxxxx录制脚本For i="1" to Data
【软件自动化测试-QTP实战技能 15】== QTP compare each iteration to enditeration
星火baba
10-13 4803
'create an app object only once If qtApp = Nothing then    Set qtApp = Nothing then End if   'qtApp.Test.Settings.Run.EndIteration = 6 in your case If Environment("TestIteration") = qtApp.Test.S
忘记QC ALM中siteadmin密码，如何更改密码
星火baba
01-04 2162
请在qcsiteadmin_db数据库里，找到USERS表，找到相应的管理员用户 admin，把USER_PASSWORD列，设成NULL。执行后，重新登陆siteadmin.问题解决。   ACCESS数据库 : 修改\common files\mercury Interactive\Domsinfo\doms.mdb (pw:tdtdtd)
轻量级自动化测试框架-QTP介绍与应用
QTP全称是Quick Test Professional，是由HP公司（惠普公司）推出的一款自动化测试工具，主要用于软件功能和回归测试。它支持多种不同的应用类型，如Windows、Web、Java、.NET等，并且可以通过ActiveX、COM、Visual ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值