В настоящее время я застрял на проблеме VBScript. Мне нужно скопировать файлы из папки F в папку G, если соблюдены определенные критерии.
В папке F много файлов с такими именами:
Файл А: 1234 2016_07_24 1923
Файл B: 1234 2016_07_25 1923
Файл C: 5678 2016_07_24 1259
Файл D: 5678 2016_07_24 1859
Первые четыре цифры представляют собой идентификатор, следующая - дата, за которой следует время.
Если папка F состоит из файлов A, B, C и D, то мне нужно скопировать только файлы B и D, поскольку файл A является только более старой версией файла B, а файл C аналогично является более старой версией файла D.
Я надеюсь, что я описал свою проблему точно. Любая помощь будет принята с благодарностью!
Это то, что я до сих пор.
option explicit
dim objfso : set objFSO = createobject("scripting.filesystemobject")
dim objstr, objend, objtyp, objfile, objkey
dim folder, subfolder
objstr = "C:\Users\Sebastian\Desktop\F"
objend = "C:\Users\Sebastian\Desktop\G\"
objkey = "test123"
For each objfile in objfso.getfolder(objstr).files
If InStr(objfile.Name, objkey) And Not objFSO.fileexists(objend) Then
objfile.Copy objend
End If
Next
MsgBox "finished", vbinformation