|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『楼 主』:
sloer大哥帮我看看这VBS代码哪里有问题
sub scan(folder_) ''scan函数定义，
set folder_=fso.getfolder(folder_)
set files=folder_.files '' 当前目录的所有文件集合
for each file in filesext=fso.GetExtensionName(file) ''获取文件后缀 脚本提示这里不是一个集合
ext=lcase(ext) ''后缀名转换成小写字母
if ext="mp5" then ''如果后缀名是mp5，则删除
fso.filedelete(file)
end if
next
set subfolders=folder_.subfoldersfor
for each subfolder in subfolders ''搜索其他目录；递归调用
scan( )
scan(subfolder)
next
end sub
|
|
 2008-2-1 07:14 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
2 楼』:
注释是单引号……
for each file in filesext=fso.GetExtensionName(file)
貌似要写2句吧？
|
|
|
2008-2-1 12:06 |
|
|
Vampire
初级用户
积分 176
发帖 78
注册 2007-4-15
状态 离线
|
『第
3 楼』:
function bianli(path)
set fso=createobject("scripting.filesystemobject")
dim objFolder '文件夹对象
dim objSubFolders '子文件夹集合
dim objSubFolder '子文件夹对象
dim objFiles '文件集合
dim objFile '文件对象
on error resume next
set objFolder=fso.GetFolder(path)'创建文件夹对象
set objSubFolders=objFolder.Subfolders'创建的子文件夹对象
for each objSubFolder in objSubFolders
nowpath=path + "\" + objSubFolder.name
set objFiles=objSubFolder.Files
for each objFile in objFiles
wscript.echo nowpath & "\" & objFile.name
next
bianli(nowpath) '调用递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
wscript.echo path & "里的所有文件已经处理完毕……"
end function
|
|
|
2008-2-1 14:48 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
|
|
2008-2-1 20:01 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
5 楼』:
Set FSO = CreateObject("Scripting.FileSystemObject")
bianli(".")
Set FSO = Nothing
Function bianli(path)
Dim objFolder '文件夹对象
Dim objSubFolders '子文件夹集合
Dim objSubFolder '子文件夹对象
Dim objFiles '文件集合
Dim objFile '文件对象
on Error Resume Next
Set objFolder = FSO.GetFolder(path) '创建文件夹对象
Set objFiles = objFolder.Files
For Each objFile In objFiles
FileExt = FSO.GetExtensionName(objFile)
If UCase(FileExt) = "MP5" Then wscript.echo path & "\" & objFile.Name
Next
Set objSubFolders = objFolder.Subfolders '创建的子文件夹对象
For Each objSubFolder In objSubFolders
nowpath = path + "\" + objSubFolder.name
bianli(nowpath) '调用递归
Next
Set objFolder = Nothing
Set objSubFolders = Nothing
End Function
|
|
|
2008-2-1 22:27 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
6 楼』:
这段程序就是运行起来如果检测到扩展名为MP5就弹窗显示出路径是吧。
怎么这样调用的呢bianli(".") 有点不明白。
[ Last edited by hackhd on 2008-2-1 at 10:47 PM ]
|
|
|
2008-2-1 22:43 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-2-1 22:56 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
8 楼』:
你自己测试过没？我在当前目录建一个XX.MP5脚本也不提示啊。
|
|
|
2008-2-1 23:02 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
9 楼』:
我测试过的……
那就不知道了。。。
|
|
|
2008-2-1 23:22 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
『第
10 楼』:
在前面加一个遍历本地硬盘C盘除外的代码。
Set FSO = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives '得到系统所有驱动盘列表
for each d in dc
if d.drivetype=2 or (d.drivetype=1 and d<>"A:" and d<> "B:" and d<> "C:") then bianli(d&"\")
NEXT
For Each objFile In objFiles'脚本提示这句没有权限
|
|
|
2008-2-5 21:02 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
11 楼』:
这个有人提过……遍历的时候访问某些文件夹过不了。。。
但是直接用函数bianli(那个目录)确可以。
这个我就不清楚。我没有写过要用遍历的脚本。
|
|
|
2008-2-5 22:06 |
|
|
hackhd
中级用户
积分 231
发帖 102
注册 2008-1-25
状态 离线
|
|
|
2008-2-5 23:06 |
|
