按名称移动文件

Question

我正在研究决定以下内容的vbs：

1. 是文件a * .dbf？
2. 是文件名数字吗？

两个问题都是肯定的，这样脚本就可以将所述文件移动到另一个文件夹中。这是我到目前为止所做的：

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "D:\Folder"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set DirFiles = objFolder.Files
Dim oFile
For Each objFile in DirFiles
    If "dbf" = LCase(objFSO.GetExtensionName(objFile.Name)) Then
        If IsNumeric(objFSO.GetBaseName(objFile.Name)) Then
            objFSO.Movefile Drivespec,"D:\Deletable\"
        End If
    End If
Next

出于某种原因，虽然我在第9行收到有关未找到文件的错误。我添加了一个msgbox（objFile），我知道它运行得很好，但我在这里缺少什么？

Answer 1

objFSO.Movefile Drivespec,"D:\Deletable\"

将Drivespec更改为objFile.Path