Question

如何用BAT或VB来移动文件夹到另一个文件夹中

举例：
文件夹1中会自动创建文件夹，每分钟4个左右，文件夹名称按顺序创建，例如为001、002、003、004.。。。每个文件夹有一个创建日期及时间，现想将3分钟之前创建的文件夹移动到文件夹2中，该如何实现。

Answer 1

Private Sub Command1_Click()
Dim fso As Object, fd As Object, dd As Object
Set fso = CreateObject("scripting.filesystemobject")
Set fd = fso.getfolder("d:\文件夹1")
For Each dd In fd.subfolders
    If DateDiff("n", dd.datecreated, Now()) > 3 Then dd.Move "d:\文件夹2"
Next
Set fd = Nothing
Set fso = Nothing
End Sub