空间管理您的位置: 51Testing软件测试网 » gp_jl的个人空间 » 日志

与其临渊羡鱼，不如退而结网！

VBS (一)

上一篇 / 下一篇 2009-02-02 15:17:56 / 个人分类：其他

查看( 764 ) / 评论( 0 ) / 评分( 0 / 0 )

2009年2月02日9:16上午
一、FSO相关
1.FSO 常用对象：Drive\Drives,
File\Files，
Folder\Folders，
textstream；

2.FSO常用方法：
BuildPath；

Create:
CreateTeststream\CreateFolder；

Copy:
CopyFile\CopyFolder；

Exist:
DriveExists\FileExists\FolderExists；

Get：
GetAbsolutePathName\GetBaseName,GetDrive\GetDriveName,
GetFile\GetFileName\GetExtensionName,GetFolder\GetparentFolderName,
GetSpecialFolder,GetTempName；

Move：
MoveFile\MoveFolder；

Open：
OpenTextFile；

3.建立、释放：
set fs = wscrīpt.createObject("scrīpting.FileSystemobject")
set fs = nothing

4.MoveFolder使用方法示例：
Set fs = Wscrīpt.CreateObject("scrīpting.filesystemobject")
'文件夹test1和test2均存在，且test1下存在某文件
fs.MoveFolder "c:\test1","c:\test2" '无任何文件或文件夹被移动
fs.MoveFolder "c:\test1\","c:\test2" '无任何文件或文件夹被移动
fs.MoveFolder "c:\test1\","c:\test2\" '无任何文件或文件夹被移动

'文件夹test1和test2均存在，且test2下存在文件夹test1，但test2\test1下的文件与test1下的文件不同
'fs.MoveFolder "c:\test1","c:\test2\" '或fs.MoveFolder "c:\test1","c:\test2" 无任何文件或文件夹被移动

'文件夹test1和test2均存在，且test1下存在某文件
fs.MoveFolder "c:\test1","c:\test2\" '文件夹test1及其子文件均移动到c:\test2下，即c:\test2\test1

'文件夹test1存在，test2不存在，且test1下存在某文件
fs.MoveFolder "c:\test1","c:\test2" '文件夹test1下相关文件均移动到文件夹test2下，但test2下无test1子文件夹

'文件夹test1存在，test2不存在，且test1下存在某文件
fs.MoveFolder "c:\test1\,"c:\test2" '运行异常，无法执行
fs.MoveFolder "c:\test1,"c:\test2\" '运行异常，无法执行
fs.MoveFolder "c:\test1\,"c:\test2\" '运行异常，无法执行

Set fs = nothing

NB:
（1）MoveFolder不提供强制替换的功能，一旦存在同名文件夹则不会强制覆盖，但是copyFolder可以设置第三个参数为true进行强制覆盖；
（2）MoveFolder第二个参数即拷贝文件夹的目的地下如果加了“\”,则当该文件夹不存在时，不会自行创建该文件夹；否则，会自行创建；

5.特殊文件夹
一般指的就是系统文件夹：\windows\system32，临时文件夹，windows文件夹，在前几篇的时候，我们提过一下：例如
set fs=wscrīpt.createobject(“scrīpting.filesystemobject”)
set wshshell=wscrīpt.createobject(“wscrīpt.shell”)
osdir=wshshell.expandenvironmentstrings(“%systemroot%”)
set f =fs.getfolder(osdir)
wscrīpt.echo f
当然，还有简单的方法那就是使用getspecialfolder()
这个方法使用3种值：
0 表示windows文件夹，相关常量是windowsfolder
1 系统文件夹，相关常量是systemfolder
2 临时目录，相关常量temporaryfolder
例如：
set fs=wscrīpt.createobject(“scrīpting.filesystemobject”)
set wfolder=fs.getspecialfolder(0) ‘返回windows目录
set wfolder=fs.getspecialfolder(1) ‘返回system32\
set wfolder=fs.getspecialfolder(2)'返回临时目录
NB：对于非系统程序，则需要输入完整路径，但要求使用双引号；

6.File创建、读写示例
Dim destination,fso,ft,sd,check
'Dim value
'Dim line
Dim content

source = "C:\Documents and Settings\Administrator\My Documents\test1.txt"
destination = "C:\Documents and Settings\Administrator\My Documents\test2.txt"

Set fso = Wscrīpt.CreateObject("scrīpting.filesystemobject")

If not fso.fileexists(source) then
   MsgBox "The source file doesn't exist! Quit!!"
   Wscrīpt.Quit
Else
   MsgBox "The source file exists! Go!"
end If

if fso.fileexists(destination) then
   MsgBox "The destination file exists!Go!"
else
   fso.createtextfile(destination)
   MsgBox "The destination file doesn't exist! We will create the file!"
end If

Set ft=fso.opentextfile(source,1)
'value=ts.read(20)
'line=ts.readline
contents=ft.ReadAll
Wscrīpt.Echo contents

Set sd = fso.OpenTextFile(destination,8)
sd.Write contents
sd.Close
ft.Close
Set sd = Nothing
Set ft = Nothing

Set check = fso.opentextfile(destination,1)
contents=check.ReadAll
Wscrīpt.Echo contents
check.Close

set check = Nothing
Set fso = Nothing

二、Sendkeys相关
1.基本键：一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可；
2.2．特殊功能键：对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示：Shift —— +；Ctrl —— ^；Alt —— %
如要发送的组合按键是同时按下Ctrl＋E，需要用“WshShell.SendKeys "^e"”表示，如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键，这时应使用小括号把字母键括起来，书写格式为“WshShell.SendKeys "^(ec)"”，这里要注意它与“WshShell.SendKeys "^ec"”的区别，后者表示组合按键是同时按住Ctrl和E键，然后松开Ctrl键，单独按下“C”字母键。由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？只要用大括号括住这些字符即可。例如，要发送加号“+”，可使用“WshShell.SendKeys "{+}"”。另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称，例如要发送回车键，需要用“WshShell.SendKeys "{ENTER}"”表示，发送向下的方向键用
“WshShell.SendKeys "{DOWN}"”表示。
如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键数字}”。例如要发送10个字母“x”，则输入“WshShell.SendKeys "{x 10}"”即可。
3.示例：
Dim WshShell,fs

Set WshShell=Wscrīpt.CreateObject("Wscrīpt.Shell")
Set fs = Wscrīpt.CreateObject("scrīpting.filesystemobject")

If (fs.FileExists("C:\Documents and Settings\Administrator\My Documents\test.txt"))Then
   fs.DeleteFile "C:\Documents and Settings\Administrator\My Documents\test.txt",True
End If

WshShell.Run "notepad"
Wscrīpt.Sleep 2000
WshShell.AppActivate "无标题 - 记事本"
WshShell.SendKeys "This is a test"
WshShell.SendKeys "{Enter}"
WshShell.SendKeys "because I'm here with you now"
WshShell.SendKeys "%{F4}"
WshShell.SendKeys "{Enter}"
WshShell.AppActivate "另存为"
WshShell.SendKeys "test"
WshShell.SendKeys "{Enter}"

Set WshShell = nothing

相关阅读:

测试有感 (eve_lincoin, 2008-10-04)
安装SQL Server 2000问题总结 (hjjlearning, 2008-10-17)
TD 项目移植的要点《acess类型数据库》 (onlonely, 2008-10-29)
网易硬盘 (honeydh, 2008-11-27)
Google搜索引擎优化初级指南 (hjjlearning, 2008-12-09)
CLT使用说明 (gp_jl, 2008-12-24)
SEO和SEM (qixiafeng, 2009-1-06)
80后人生的40条哲理 (ly_xixihaha, 2009-1-08)

查看全部评论

用户菜单

我的栏目

标题搜索

日历

数据统计

访问量: 16329
日志数: 17
建立时间: 2006-12-05
更新时间: 2009-02-04

RSS订阅