将前10个文件从文件夹移动到另一个文件夹

Question

我想知道如何将文件夹中的前10个文件移动到另一个文件夹中？我有一个包含50K以上文件的文件夹需要移动到另一个位置进行处理。我想一次移动10个文件。

请帮助找到使用VBScript的方法。

Answer 1

如果您只需要从文件夹中移动任何 10个文件，只需在迭代Files对象的Folder集合时保持文件计数。

例如：

intCount = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objFile In objFSO.GetFolder("c:\path\to\your\files").Files
    objFile.Move "c:\new\path\"
    intCount = intCount + 1
    If intCount = 10 Then Exit For
Next

正如我在评论中提到的，这里不保证会移动10个文件。另外值得注意的是，请确保在您将文件移动到（\）的路径末尾使用黑色c:\new\path\，以便将其视为文件夹，而不是一个新的文件名。