移动文件夹

    Dim I As Integer
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim str As String
    str = "select * from MyTable"
    rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set fs = CreateObject("Scripting.FileSystemObject")
    rs.MoveFirst
    If Not rs.EOF Then
        For I = 1 To rs.RecordCount
            ps_folder = "D:\需刻录成盘(已放款)\" & rs(0) & "*"
            If Dir(ps_folder, vbDirectory) <> "" Then
                fs.MoveFolder ps_folder, "d:\fk\"
            End If
            rs.MoveNext
        Next
    End If
把原表名改为了mytable。