不知道大家是不是经常下电影，我经常下电影而且同时下十几部，因为分区空间有限，当下电影的分区空间不够的时候就需要把已下完的电影移到其他分区，但是由于每部电影一个文件夹，要判断电影是不是下完就要到各个文件夹下查看，而且看了这个又忘了那个，很是麻烦，所以想到做个东西来批量判断，代码如下，没什么技术含量，因为觉得还算有点实用价值就发上来了，高手不要笑啊。
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双击执行即可.
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双击执行即可.