Почему FileExists не поддерживает подстановочные знаки?

Question

Рассмотрим этот пример VBScript фрагмент:

Dim fs 
Set fs = CreateObject("Scripting.FileSystemObject") 
If fs.FileExists("D:\Folder\File*.ext") Then ' Finds nothing! 
    fs.CopyFile "D:\Folder\File*.ext", "D:\OtherFolder\" 
    fs.Deletefile "D:\Folder\File*.ext" 
End If 

Метод FileExists оказывается не поддерживать групповые символы (* и ?). Не FolderExists. Я ожидал, что wildards просто работать, потому что они прекрасно работают для всех подобных методов в FileSystemObject: CopyFile, CopyFolder, MoveFile, MoveFolder, DeleteFile, DeleteFolder и методов обработки с Get*GetAbsolutePathName имени файла, как.

Конечно, есть способы обойти это, например GetFolder и итерацию по его файлам. Но FileExists было бы более читаемым, удобным, естественным и последовательным.

Несоответствие выглядит как проблема проектирования API. Что может быть причиной? Есть ли какая-то идея?

Answer 1

Только тот, кто из команды, создавшей API Runtime Microsoft Scripting (scrrun.dll), из которого эти функции являются частью, может точно ответить на этот вопрос.

Но я думаю, что FileExists не что иное, как обертка для CreateFile Windows API function с параметром dwCreationDisposition, установленным в OPEN_EXISTING («Открывает файл или устройство, только если оно существует.»). Эта функция Windows API не поддерживает подстановочные знаки, поэтому FileExists тоже не может.

Если файл не существует, то система будет реагировать с ошибкой 2 («Система не может найти указанный файл.») и FileExists вернется False.

Вышеописанная информация основана на использовании Process Monitor для проверки поведения вызова FileExists.

Было бы спорными, чтобы обсудить это ли API дизайн надзора и должен ли он быть другим.

---

Это, как говорится, нет причины для проверки «существует» в коде, который вы показываете.

Если вы хотите переместить файлы из местоположения A в местоположение B, просто сделайте это.

Если есть что двигаться, он будет перемещен. Если вам нечего двигаться, появится ошибка, которую вы можете проверить. Проверка «существует» не содержит никакой дополнительной информации.

Dim fs, source 
Set fs = CreateObject("Scripting.FileSystemObject") 

On Error Resume Next 

fs.MoveFile "File*.ext", "D:\OtherFolder\" 

If Err.Number = 0 Then 
    MsgBox "Done" 
ElseIf Err.Number = 53 Then ' File not found 
    MsgBox "Nothing to do" 
ElseIf Err.Number = 76 Then ' Path not found 
    MsgBox "Target path not found" 
Else 
    MsgBox "Unexpected Error " & Err.Number & " - " & Err.Description 
End If 

On Error Goto 0 

Для удобства я бы обернуть, что в Sub, так что я могу повторно использовать его и On Error Resume Next не будет течь в остальной части моего кода.

Следует также отметить, что в том же объеме MoveFile будет способом быстрее, чем копировать и удалять.