按名称

移动文件我工作的一个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），我知道这很好，但我在这里错过了什么？

来源

2014-11-05 John D. Palmer

那么，什么是你的问题？ – 2014-11-05 17:49:26

我收到一个错误，指出无法在第9行找到该文件。我知道它正在查找文件，但我无法让它们移动。 – 2014-11-05 18:57:36

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

变化Drivespec到objFile.Path

来源

2014-11-05 18:58:23 eurotrash

非常感谢你！ – 2014-11-05 19:01:52

回答

相关问题