按名称移动文件答案

【问题标题】：Moving Files by name按名称移动文件
【发布时间】：2014-11-05 17:32:17
【问题描述】：

我正在开发一个可以确定以下内容的 vbs：

文件是 *.dbf 吗？
文件名是数字吗？

对这两个问题都选择“是”将允许脚本将所述文件移动到另一个文件夹中。到目前为止，这是我所拥有的：

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) 并且我知道这已经足够好了，但是我在这里缺少什么？

【问题讨论】：

那么你的问题是什么？
我收到一条错误消息，指出在第 9 行中找不到该文件。我知道它正在查找文件，但我无法移动它们。

标签： vbscript

【解决方案1】：

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

将Drivespec 更改为objFile.Path

【讨论】：