VBA

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 = "\\10.122.9.99\Scan\" & rs(0) & "*"
            If Dir(ps_folder, vbDirectory) <> "" Then
                fs.MoveFolder ps_folder, "\\10.122.9.99\FK\"
            End If
            rs.MoveNext
        Next
    End If

各位老师好，上面的程序是把文件夹从Scan目录移动至FK目录中，现在我想把移动单个文件（PDF或者JPEG格式）而不是移动单个文件夹，该怎么改上面的程序呢？希望能得到帮助，谢谢大家。