-1

我想将最新文件从源路径复制到目标路径，然后重命名如下：

目标路径：C;\User\Client1\FinalReports

源路径：C:\User\Client1\Reports\ReportFolderA（来自 Report FolderA 的文件应重命名为目标文件夹为 File1.csv） C:\User\Client1\Reports\ReportFolderB（来自 Report FolderB 的文件应重命名为目标文件夹as File2.csv) C:\User\Client1\Reports\ReportFolderD （来自 Report FolderD 的文件应重命名为 File4.csv 的目标文件夹） C:\User\Client1\Reports\ReportFolderF （来自 Report FolderF 的文件应重命名为目标文件夹为 File5.csv)

“C:\User\Client1\Reports”源路径是固定的，后面跟着变量ReportFolderA、ReportFolderB.etc..所以我们可以在脚本中只设置一个源路径。

我需要一个脚本来通过浏览弹出方法选择路径。我只会选择两个路径“源和目标”

通过浏览弹出窗口，因为下次我会有不同的位置，我们无法在一次脚本中修复它们。我想根据不同路径的需要运行脚本。

4

2 回答 2

3

尝试这样的事情来从文件夹中复制最新的文件：

@echo off

setlocal

set "src=C:\User\Client1\Reports\ReportFolderA"
set "dst=C:\User\Client1\FinalReports"

pushd "%src%"
for /f "delims=" %%f in ('dir /b /a:-d /o:-d') do (
  copy "%%~f" "%dst%\File1.csv"
  goto next
)

:next
popd

在 VBScript 中，您可以使用Shell.BrowseForFolder选择文件夹的方法。选择源文件夹的示例：

Set os = CreateObject("Shell.Application")
basedir = os.Namespace("C:\").Self.Path
Set fldr = os.BrowseForFolder(0, "Select source folder:", &h10&, basedir)

If fldr Is Nothing Then
  WScript.Echo "User pressed [Cancel]."
  WScript.Quit 1
End If

src = fldr.Self.Path

在文件夹中查找和复制最近的文件可以这样实现：

Set fso = CreateObject("Scripting.FileSystemObject")
Set mostRecent = Nothing
For Each f In fso.GetFolder(src).Files
  If mostRecent Is Nothing Then
    Set mostRecent = f
  ElseIf f.DateLastModified > mostRecent.DateLastModified Then
    Set mostRecent = f
  End If
Next

If Not mostRecent Is Nothing Then
  mostRecent.Copy fso.BuildPath(dst, "File1.csv")
End If
于 2013-07-16T13:13:31.893 回答
1

尝试这个：

@echo off &setlocal
设置“src=C:\User\Client1\Reports\ReportFolderA”
设置“dst=C:\User\Client1\FinalReports”

cd /d "%src%"
for /f "delims=" %%a in ('dir /b /ad /od') 设置 "file=%%~a"
复制 "%file%" "%dst%\File1.csv"
于 2013-07-16T13:39:28.437 回答