哪位高手能帮小弟用VB写个程序啊?要求如下:
1. 将C:\prod\result文件夹里的文件复制到D:\test result\focus里面
2. 复制是每隔10分钟自动进行一次,扫描C盘的文件夹里有没有新的文件生成,如果有就复制,没有就等待下一次复制

哪位高手指点一下这个啊?感激不尽!

Private Sub Command1_Click()
Dim lsFileName As String
Dim fsoTemp As New FileSystemObject
lsFileName = Dir("C:\123\*.*", vbNormal)
Do While lsFileName <> ""
fsoTemp.MoveFile "c:\123\" & lsFileName, "d:\456\" & Left(lsFileName, Len(lsFileName) - 4) & Format(Now, "yyyyMMddHHnnss") & Right(lsFileName, 4)

lsFileName = Dir
Loop

End Sub