将指定文件夹修改为指定路径

gareth

以下代码是查找"\缓存文件\"里的文件，现在遇到到一个问题，我需要查找是的的不同路径内的文件，如：
C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5\4H6VSZYP\user[3].htm
C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5\OT6RW1AF\user[3].htm
C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5\2J4NI5UV\user[4].htm
C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5\OT6RW1AF\user[4].htm

C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files\Content.IE5\OT6RW1AF\user[5].htm
我已经将这些路径写在Sheet2表格A列内，
有哪位高手帮我改一下代码呀，改为查找Sheet2表格A列内写的路径，先多谢了！
代码如下：

Sub g()

Set reg = CreateObject("vbscript.regexp")
Set fso = CreateObject("scripting.filesystemobject")
On Error Resume Next
reg.Global = True
reg.Pattern = "\d{11}|\d+-\d+-\d+ \d{2}:\d{2}:\d{2}|\d{2}:\d{2}:\d{2}|\s\d+\.\d?\d?"
mypath = ActiveWorkbook.Path & "\缓存文件\"
For Each myfile In fso.GetFolder(mypath).Files
    Open myfile For Input As #1
    mystr = StrConv(InputB(LOF(1), 1), vbUnicode)
    Set k = reg.Execute(mystr)
    m = 1
    Do Until m > k.Count
        r = r + 1
        For n = m To m + 5
            c = c + 1
            Cells(r + 2, c + 1) = k(n)
        Next n
        c = 0
        m = m + 6
        Loop
    Close #1
Next myfile
End Sub