救命啊！高分求救！

Question

下面是自动复制文件的源码，但有一个问题无法解决。
问题：我计划是上午复制一次，然后下午再复制一次。可下午复制时提示文件存在是否替换。如何才能让提示窗口不出现呢？急急急！
Dim a As Date
Dim b As String
Dim c As String
Private Sub Form_Load()a = Date
b = a
c = Right(b, 2)
Dim result As Long, fileop As SHFILEOPSTRUCT
With fileop
        .hwnd = Me.hwnd
        .wFunc = FO_COPY
        .pFrom = "d:\fl\" & c & "\jsfff\*.*" & vbNullChar & vbNullChar
        .pTo = "d:\" & b & "\jsfff" & vbNullChar & vbNullChar
        .fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
End With
result = SHFileOperation(fileop)End SubPrivate Sub Timer1_Timer()    Unload MeEnd Sub

Answer 1

'FOF_NOCONFIRMATION 不显示系统确认对话框。
Const FOF_NOCONFIRMATION = &H10.fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY Or FOF_NOCONFIRMATION