Перемещение файлов по имени

Question

Я работаю на VBS, которые определяют бы следующее:

1. это файл а * .dbf?
2. - это имя файла numeric?

Да, оба вопроса позволят сценарию переместить указанный файл в другую папку. Вот что я до сих пор:

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