最近在制作一个项目时，涉及到一个问题，客户要求从远程服务器某个地址 拷贝XLS文件，拷贝条件根据 excel文件的创建日期，先把部分代码分享给大家

---以下文件拷贝功能, 拷贝远程路径和目标路径都是通过INI配置文件实现的

 

 Dim filename As String

    Dim FSO As New FileSystemObject

    Dim mfile As File

    Dim Nub As Double

    Dim Tmp_i As Double

    If fExist = True Then

        Tmp_i = 0

        With Application.FileSearch

            .NewSearch

            .LookIn = path_csv_2

            .filename = "*.xls"

            .Execute

            If .FoundFiles.Count >= 1 Then

                For Nub = 1 To .FoundFiles.Count

                    Set mfile = FSO.GetFile(.FoundFiles(Nub))

                    If mfile.DateCreated >= Me.msg_time_start And mfile.DateCreated < Me.msg_time_end Then

                 -- 其中【Me.msg_time_start】和 【Me.msg_time_end】是界面上建立的开始和结束日期，控件为文本

。。。。。。。。。。。。。。。。。。。。。。。。。。

更多详情请访问：http://www.mdbtip.com/Show.aspx?id=201