Дир получает мне путь к файлу, но потом я не могу открыть его или прочитать метку времени

Question

Так что у меня есть немного странное, я подозреваю, что это связано с некоторой настройкой sharepoint где-то.

У меня есть небольшая функция VBA для l oop через все файлы в папке, и выбираю самый последний. Это что-то вроде:

Function LoopThroughFiles(FolderToScan, FileCriteria)
Dim LatestDate as Date
Dim LatestFile as File
Dim StrFile as String

StrFile = Dir(FolderToScan & "\*" & FileCriteria) 'I have no idea why I need the extra \*, it works though

Do While Len(StrFile)>0
    Debug.print StrFile
    If FileDateTime(FolderToScan & StrFile) > LatestDate then
        LatestFile = StrFile
        LatestDate = FileDateTime(FolderToScan & StrFile)
    Else
        'Do nothing
    End if

StrFile = Dir

Loop

LoopThroughFiles = LatestFile
End Function

Теперь он работает через 20 разных папок. Для первых 19 он работает отлично. На последнем он терпит неудачу. Dir извлекает путь к файлу, но затем FileDateTime завершается ошибкой, и когда я передаю правильный результат функции, код не может открыть файл. Я вручную проверил правильность полученной строки файла (используя глаза и код). Это работало на прошлой неделе, и теперь оно не работает, даже на папках, которые он сканировал должным образом на прошлой неделе.

У кого-нибудь есть какие-нибудь идеи?

(PS: я знаю, что дополнительный "\ *", вероятно, неправильно, но по какой-то причине это кажется правильным и работающим ... Я не знаю ... У данной папки toscan уже есть "\" в конце)

Редактировать: я проверил с администраторами sharepoint, папка, из которой я берусь, не имеет других настроек, отличных от других