将文件从不同的目的地复制到1个文件夹&用日期重命名 [英] Copy files from different destinations to 1 folder & rename with date
问题描述
大家下午好。
要说我是绿色的V / VBS是轻描淡写的，但是在这个网站上有很多例子，我能够把一起使用的基本脚本：
转到服务器A /目录/文件夹
将文件X复制到服务器B /目录/文件夹
和用原始名称重命名，但是将当前日期添加到它。
我想知道是否可以：
修改脚本转到服务器/文件夹
检索文件（不同名称）
将它们复制到特定的服务器/目录/文件夹
将它们重命名为它们的原始名称，但是将当前日期添加到它。
或者为每个源/文件创建一个单独的脚本会不那么令人头疼？
以下是我的非常基本的复制/重命名脚本示例（F：\ =当前用于测试的本地驱动器）
我尝试了什么：
Dim file1，file2
file1 =\\\\\\\\\\ \\ FOLDER \ .FILE.BAK
file2 =F：\ Test \ .FILE&年（日期）&对（0和月（日期），2）&正确（0和日（日期），2）& .BAK
设置fso = CreateObject（Scripting.FileSystemObject）
如果是fso。 FileExists（file1）= true然后
如果fso.FileExists（file2）= true那么
fso.DeleteFile（file2）
如果
fso.CopyFile file1，file2
'else
'msgbox文件不存在
结束如果< br $>
设置FSO = Nothing
\ FOLDER \ .FILE.BAK
file2 =F：\Test \ FILE& year（date）& Right（0& month（date），2）& Right（0& Day（Date） ，2）&。BAK
设置fso = CreateObject（Scripting.FileSystemObject）
如果fso.FileExists（file1）= true那么
如果fso.FileExists（file2）= true那么
fso.DeleteFile（file2）
结束如果
fso.CopyFile file1，file2
'else
'msgbox文件没有存在
结束如果
设置FSO = Nothing
我认为你需要 DirectoryInfo.GetFiles（），请参见此处的示例： DirectoryInfo.GetFiles方法（System.IO） [ ^ ]
如果要将此作为没有Visual Studio的脚本运行，可以使用 Powershell ，请参阅此处的示例： .net - Powershell - IO.Directory - 查找所有子目录中的文件类型 - Stack溢出 [ ^ ]
Good afternoon all.
To say that I'm green w/ VBS is an understatement, but following many examples on this site, I was able to put together a basic script that will:
go to server A / directory / folder
copy file X to server B / directory / folder
and rename it with the original name but add the current date to it.
I was wondering if it is possible to:
modify the script to go to servers / folders
retrieve files (of different names)
copy them to a specific server / directory / folder
rename them with their original name but add the current date to it.
Or would it be less headaches to just create a separate script for each source / file ?
Below is an example of my, VERY BASIC, copy / rename script (F:\ = current local drive for testing)
What I have tried:
Dim file1, file2
file1 = "\\server A\d$\FOLDER\FILE.BAK"
file2 = "F:\Test\FILE" & year(date) & Right("0" & month(date),2) & Right("0" & Day(Date),2) & ".BAK"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file1) = true then
If fso.FileExists(file2) = true then
fso.DeleteFile(file2)
End if
fso.CopyFile file1, file2
'else
' msgbox "File does not exist"
End If
Set FSO = Nothing
\FOLDER\FILE.BAK"
file2 = "F:\Test\FILE" & year(date) & Right("0" & month(date),2) & Right("0" & Day(Date),2) & ".BAK"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file1) = true then
If fso.FileExists(file2) = true then
fso.DeleteFile(file2)
End if
fso.CopyFile file1, file2
'else
' msgbox "File does not exist"
End If
Set FSO = Nothing
I think you need DirectoryInfo.GetFiles(), see example here: DirectoryInfo.GetFiles Method (System.IO)[^]
If you want to run this as a script without Visual Studio you can use Powershell, see example here: .net - Powershell - IO.Directory - Find file types in all subdirectories - Stack Overflow[^]
这篇关于将文件从不同的目的地复制到1个文件夹&用日期重命名的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
