Vbscript VBS-在子文件夹中查找最旧的文件并移动

我正在准备脚本，它应该检查几个子文件夹，并根据FIFO将文件移动到work dir进行处理

我的（非常短，业余）代码现在看起来像这样

Dim srcPath,trgtPath,objFile,totalFiles,fso

Set fso = CreateObject("Scripting.FileSystemObject")
srcPath = "C:\terms\"

Set srcFolder = fso.GetFolder(srcPath)
trgtPath = "C:\AutoTerm\Temp"

If fso.GetFolder(srcPath).Files.Count < 1 Then
Wscript.Quit
End If

If fso.GetFolder(trgtPath).Files.Count => 1 Then
Wscript.Quit
End If


Dim oldestFile, oldestDate
For Each objFile In srcPath.Files
If oldestFile = "" Then
Set oldestFile = objFile
Else
If objFile.DateLastModified < oldestFile.DateLastModified Then
Set oldestFile = objFile
End If
End If
Next

oldestFile.Move trgtPath & "\" & oldestFile.Name

Wscript.Quit

但它不起作用，总是要求“对象”，同样的结果是当我试图更改每个文件夹和srcPath.Subfolders时

---

如果你能帮助我，我将非常感激。先谢谢你

srcPath

是一个字符串

srcFolder

是您的文件夹对象。改为使用

srcFolder.Files

。

srcPath是一个字符串，因此它没有.Subfolders属性。网上/此处不缺少递归目录漫游器的VBScript示例代码-只需查看右侧的相关示例代码。例如：。做一些研究，当你有一个具体的问题时再回来。谢谢你，太好了！现在可以了。很抱歉，我是个新手，正在学习。没问题。这就是这个网站存在的原因。

 Set Subfldr = srcPath.Subfolders