局域网共享目录下文件复制到当前目录下

excelkill

我在窗体上做了个按钮，单击达到复制更新数据的作用（如果能做到每月最后一天自动更新最好）
将局域网指定目录下的所有工作簿复制并覆盖到当前目录下；
\\Pc-20170515tlqd\共享文件\     这是局域网指定文件夹路径；
把指定文件夹下所有文件复制到当前文件夹下，有重名的以局域网指定文件夹下的文件为准，覆盖当前文件夹下的文件。

下面这个是我在论坛借鉴大师作品修改的，只是复制单个文件，我的要求是：1、点击窗体上的数据更新按钮，复制局域网共享目录下（路径：\\Pc-20170515tlqd\共享文件\ ）所有文件到当前文件夹下，重名的文件以局域网共享目录下的文件为准，麻烦帮助修改一下，谢谢！如果能做成每月最后一天自动完成上面的拷贝动作就更好了，那就不用每月定时要去按一下那个按钮了，不过要有提示更新是否成功，别不好用了都不知道。
Private Sub CommandButton6_Click()
    Dim SourceFile, DestinationFile
    SourceFile = "\\Pc-20170515tlqd\共享文件\指标.xls"                 ' 指定源文件名。
    DestinationFile = "c:\指标.xls"            ' 指定目的文件名。
    FileCopy SourceFile, DestinationFile    ' 将源文件的内容复制到目的文件中。

End Sub

excelkill

网上查询修改了一下，可以做到了，现在每月定时自动复制文件还没实现，大家帮我想想办法吧。
Sub test()
  Dim dirstr1$, dirstr2$
   dirstr2 = ThisWorkbook.Path & "\*.xls"
   dirstr1 = "d:\计算"
  CreateObject("wscript.shell").exec("cmd.exe /c copy " & dirstr1 & " " & dirstr2).stdout.readall
End Sub