标题: 给下完的电影做标记 [打印本页]

---

作者: ebfok     时间: 2007-5-12 19:58    标题: 给下完的电影做标记

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

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右键就有移动文件的功能。