Vbscript 将文件夹中的文件列表复制到另一个文件夹

我有一个文件夹，里面有大约10000张图片，我需要将其中大约500张复制到另一个文件夹

如果我创建了一个要复制的文件列表，我如何才能复制这些文件

是否考虑使用vbscript，或者是否可以使用开关执行诸如Xcopy之类的DOS命令

---

谢谢，

假设您有文本文件中的文件列表，下面是一个vbscript

Set objFS=CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
strFile = objArgs(0)
strDestination = objArgs(1)
Set objFile =objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfLine
    strLine = objFile.ReadLine
    objfs.CopyFile strLine,strDestination &"\"&strLine
Loop

另存为myscript.vbs并在命令行上

C:\test>more file
test1.txt
test2.txt

c:\test> cscript //nologo myscript.vbs file c:\destination\directory

或者如果你想批量生产

@echo off
for /F %%i in (file) do (  copy "%%i" c:\destination   )

如果您想根据某种模式移动文件列表，只需执行以下操作

c:\test> copy *pattern*.txt c:\destination

---

假设文本文件中有文件列表，下面是一个vbscript

Set objFS=CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
strFile = objArgs(0)
strDestination = objArgs(1)
Set objFile =objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfLine
    strLine = objFile.ReadLine
    objfs.CopyFile strLine,strDestination &"\"&strLine
Loop

另存为myscript.vbs并在命令行上

C:\test>more file
test1.txt
test2.txt

c:\test> cscript //nologo myscript.vbs file c:\destination\directory

或者如果你想批量生产

@echo off
for /F %%i in (file) do (  copy "%%i" c:\destination   )

如果您想根据某种模式移动文件列表，只需执行以下操作

c:\test> copy *pattern*.txt c:\destination

---

对于命令行上的一次性操作，请准备一个filenames.txt，每行一个名称。然后发布：

for /f %n in (filenames.txt) do copy "%n" "t:\arget\folder"

---

对于VBScript，可以使用

Scripting.FileSystemObject

及其近亲（如

文件

和

文件夹

对象）实现相同的功能，但相比之下，这更复杂。ghostdog74的答案显示了一种方法。

对于命令行上的一次性操作，请准备一个filenames.txt，每行一个名称。然后发布：

for /f %n in (filenames.txt) do copy "%n" "t:\arget\folder"

---

对于VBScript，可以使用

Scripting.FileSystemObject

及其近亲（如

文件

和

文件夹

对象）实现相同的功能，但相比之下，这更复杂。ghostdog74的答案显示了一种方法。

您如何创建文件列表？它们是否符合一些简单的标准？是的，文件列表将在文本文件中…例如，image1.jpg\n image2.jpg等…查看下面的答案，我想我将很快使用其中一个。您是如何创建文件列表的？它们是否符合一些简单的标准？是的，文件列表将在文本文件中…例如，image1.jpg\n image2.jpg等…查看下面的答案，我想我将很快使用其中的一个。