Переместить неизвестное количество файлов, используя подстановочные с помощью VBScript (VBS)

Question

Я пытаюсь переместить один или несколько файлов из одной директории в другую директорию, используя подстановочные:

dim filesys 
set filesys=CreateObject("Scripting.FileSystemObject") 
If filesys.FileExists("Z:\somepath\somefile_*_A.xlsm") Then 
    filesys.MoveFile "Z:\somepath\somefile_*_A.xlsm", "Z:\destpath\" 
End If 

И это не работает .. .

Примечание:

Есть другие файлы в этих каталогах, которые я не хочу, чтобы двигаться. Я хочу переместить все файлы, которые возвращаются с помощью шаблона. Должен использоваться VBS.

Ссылки:

VBscript to move files from one directory to another

https://msdn.microsoft.com/en-us/library/2wcf3ba6%28v=vs.84%29.aspx

Answer 1

Function ShowFolderList(folderspec) 

Dim fso, f, f1, fc, s 

Set fso = CreateObject("Scripting.FileSystemObject") 

Set f = fso.GetFolder(folderspec) 

Set fc = f.Files 

For Each f1 in fc 

    s = s & f1.name 

    s = s & "<BR>" 

Next 

ShowFolderList = s 

End Function 

Это от справки. В FSO нет подстановочных знаков. Вы должны сделать это сами. Поэтому проверьте, соответствует ли f1.name вашим требованиям, затем скопируйте этот файл.

Answer 2

Вы не можете передать уайлдкард в findfiles имо. Вы могли бы сделать сами проверить

For Each file In filessys.GetFolder("Z:\somepath").Files 
     If(<do your checks on file.Name, might be a regex or a simple string compare>) Then    
      filesys.MoveFile file, "Z:\destpath\" 
     End If 
    Next 

В зависимости от того, как много вы знаете о формате файла может быть достаточно, чтобы просто проверить rightmost characters, если они всегда «_A.xlsm» или вы можете использовать regular expression