Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
dd = Inputbox("请输入电影所在文件夹路径:")
Set dFolder = fso.GetFolder(dd)
Set sf=dFolder.SubFolders
For Each sFolder In sf
Set Files = sFolder.Files
Isfinished=True
For Each File In Files
Ext = fso.GetExtensionName(File)
If Ext = "bc!" Then
Isfinished=False
End If
Next
If Isfinished And Left(sFolder.Name,4)<>"已完成_" Then
sFolder.Name = "已完成_" & sFolder.Name
End If
Next
Msgbox "所有下完的电影已做好标记!"
保存为check.vbs双击执行即可.作者: wudixin96 时间: 2007-5-12 20:07 BT右键就有移动文件的功能。