Question

我有一个客户端每15分钟写一个包含数据的文件。该文件的名称是该日期的日期。

所以在我可以拥有的文件夹中：

2015-06-01.csv
2015-06-02.csv
2015-06-03.csv

我想要的是每15分钟运行一次脚本，或者是否可以循环脚本以查看文件更改。

我一直在寻找一个可能有效的脚本。但是不要让复制文件起作用。我只想复制最后更改的文件。

Option Explicit  
Dim fso, path, file, recentDate, recentFile, filePath

Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("C:\CSV\Test\CSVOriginal").Files
  If (recentFile is Nothing) Then
    Set recentFile = file
  ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
    Set recentFile = file
  End If
Next

If recentFile is Nothing Then
  WScript.Echo "no recent files"
Else
  WScript.Echo "Recent file is " & recentFile.Name & " " & recentFile.DateLastModified
  filePath = fso.GetFile(recentFile.Name)
  WScript.Echo "Recent file is " & filepath
  fso.CopyFile "C:\CSV\Test\CSVOriginal" +recentFile.Name,"C:\CSV\Test\CSVFlytt\"
End If

Answer 1

这是一种方式。循环浏览您的文件夹以查找最近修改过的文件：

if(sTypeName1 != null && sTypeName2 != null)
{
  int cf = sTypeName1.compareTo(sTypeName2);
}

复制每15分钟更新一次的文件

1 个答案: