按名稱

移動文件我工作的一個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

回答

相關問題