【高分】VB如何实现播客视频的下载?

Dim WithEvents tmrM As Timer
Const tmpPath As String = "C:\Documents and Settings\<用户名>\Local Settings\Temporary Internet Files\"
'-*-*-*注意！！！用户名自己更正！！！*-*-*-

Private Sub Form_Load()
Set tmrM = Me.Controls.Add("VB.Timer", "tmrM")
With tmrM
.Enabled = True
.Interval = 800
End With
End Sub

Sub FindIt(ByVal Fdr)
On Error Resume Next
Dim fNm As String, dP As Long, subF
Dim fFSO, oFSO, cFSO
Set cFSO = CreateObject("scripting.filesystemobject")
Set fFSO = cFSO.getfolder(Fdr)
For Each oFSO In fFSO.Files
fNm = oFSO.Name
dP = InStrRev(fNm, ".")
fNm = Mid(fNm, dP + 1)
Debug.Print fNm
If LCase(fNm) = "flv" Then Print Fdr & oFSO.Name
Next
For Each subF In fFSO.subfolders
FindIt subF
Next
End Sub

Private Sub tmrm_Timer()
FindIt tmpPath
End Su