VBS遍历目录及文件

上一篇 / 下一篇  2011-04-07 10:46:00 / 个人分类:软件测试

9NKs0pU4Z0遍历目录及目录下文件,修改下面的vbs脚本可以做很多事情,例如修改文件名的后缀等

U(b~ yk;R051Testing软件测试网(x Qy`GPo

Dim fso,dc,file,files,folder,subfolders,subfolder51Testing软件测试网,Zw `zkG4OU B
set fso=createobject("scripting.filesystemobject")
)n9T:p7lhTG0set dc=fso.Drives51Testing软件测试网8_rs2g2G(uTp-L

r8YG2@u/w0for each d in dc51Testing软件测试网Hy8\*j.k,PG,b

jV!hS W6ku0wscript.echo d51Testing软件测试网 E}/g+N*S:xOjiZh
if d.drivetype=3 or d.drivetype=2 then51Testing软件测试网#\/x+N-j1RD
set folder=fso.getfolder(d)'set folder=fso.getfolder("c:\")51Testing软件测试网m&f1p*]2A#u8A
51Testing软件测试网 i#?Z.A3O ^c,z.WX
 wscript.echo folder
f s${\}+]0set files=folder.files51Testing软件测试网8z8y u/x.t-z'{ X
'搜索其目录下的文件51Testing软件测试网e"BK*@Pa2E
for each file in files
+y!s3n5d? L$o0wscript.echo file
^'W f&A/f0next
v*Mx}v:N I#U0end if51Testing软件测试网4i7NoRZ.c(r
next

?1}.hBP2hx7|+EB Q051Testing软件测试网f9u8G/W?Ys

51Testing软件测试网p h#DA?*` oVd
'搜索其他目录
z(}u3bIw!L|0set subfolders=folder.subfolders

M l(v2CQ0

WvpxA(md0for each subfolder in subfolders
q e}p ?@0wscript.echo subfolder
n4n^T"@GH7?!C0next
;ePCd"j m n!R ]0

ui D(s1v"g U;O0

4[ u u }7A gY3d0 

:~Y.\1m,j[ xp7}~9c7j051Testing软件测试网"| P(R2Lf9e!e-s

FSO包含的常见对象有:
+y"_(uD?#hd0Drive对象:包含储存设备的信息,包括硬盘、光驱、ram盘、网络驱动器
{.V"A&rs$z)w3T0Drives集合:提供一个物理和逻辑驱动器的列表51Testing软件测试网2B6?'~ll pa(t"g p
File 对象:检查和处理文件
w Ad~^ PS0Files 集合:提供一个文件夹中的文件列表
f KX-Q.vB*y6`0Folder对象:检查和处理文件夹
'_j7u-p+R _q0Folders集合:提供文件夹中子文件夹的列表
k-p-T/O7c h)c*n:S0Textstream对象:读写文本文件51Testing软件测试网#Cp{@2INO
FSO的常见方法有:
v-P&Pa?"H0BulidPath:把文件路径信息添加到现有的文件路径上
3y/Lk:AC#G/fFz0CopyFile:复制文件
qp Y M5H+A?l0CopyFolder:复制文件夹51Testing软件测试网5qV7XGD w1D
CreateFolder:创建文件夹51Testing软件测试网 l4{&rft \!O u R*]
CreateTextFile:创建文本并返回一个TextStream对象51Testing软件测试网4\ | [ ne5apW_
DeleteFile:删除文件
(h/xi J{c(lxVWz'b0DeleteFolder:删除文件夹及其中所有内容51Testing软件测试网^4fu7nsIa'`
DriveExits:确定驱动器是否存在51Testing软件测试网:S,[ _Ekt)T
FileExits:确定一个文件是否存在51Testing软件测试网O"vk$^xE]
FolderExists:确定某文件夹是否存在
x P.y(Jo.m6T0GetAbsolutePathName:返回一个文件夹或文件的绝对路径51Testing软件测试网N._C },qi K K
GetBaseName:返回一个文件或文件夹的基本路径
b TW3I'ih l|*Hx4?0GetDrive:返回一个dreve对象
?m_%i(P1o'I T8I0GetDriveName:返回一个驱动器的名字51Testing软件测试网j`^PSz Q

51Testing软件测试网y.O M|j2|Z

GetExtensionName:返回扩展名51Testing软件测试网5o Dr*VTe8R2B D"z
GetFile:返回一个file对象51Testing软件测试网A { Giu
GetFileName:返回文件夹中文件名称51Testing软件测试网.g&K_ E9W
GetFolder:返回一个文件夹对象51Testing软件测试网zX%?4ci"M0vF|
GetParentFolderName:返回一个文件夹的父文件夹
m#t,N_6b }@)|J0GetSpecialFolder:返回指向一个特殊文件夹的对象指针51Testing软件测试网^.G&V PN3y#l
GetTempName:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称51Testing软件测试网.y*M(? M9m
MoveFile:移动文件
'CPTPM'cP0MoveFolder:移动文件夹51Testing软件测试网*DJBWg
penTextFile:打开一个存在的文件并返回一个TextStream对象51Testing软件测试网$_&x,v[ gxO5h


TAG:

 

评分:0

我来说两句

Open Toolbar