Объект файловой системы VBA Excel

Question

Я пытаюсь разработать бит VBA, который будет проверять раздел с измененной датой в файле. Я нашел немного кода в Интернете, который использует FileSystemObject, чтобы сделать это, но я бегу в ошибку «Несоответствие типов» в VBA и надеялся, что кто-то может помочь ..

Sub test() 
Dim FileLastModified As Variant 
MsgBox FileLastModified("S:\FILEPATHISHERE.xls") 
End Sub 

(естественно, я вошел фактический путь_к_файл там!)

Function FileLastModified(strFullFileName As String) 
Dim fs As Object, f As Object, s As String 

Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFile(strFullFileName) 

s = UCase(strFullFileName) & vbCrLf 
s = s & "Last Modified: " & f.DateLastModified 
FileLastModified = s 

Set fs = Nothing: Set f = Nothing 
End Function 

Я только добавил Microsoft Scripting время выполнение Reference, но это по-прежнему не работает. Есть идеи? Я пропустил другие требуемые ссылки?

Заранее спасибо Alex

Answer 1

Проблема заключается в том, что вы объявляете переменную FileLastModified в вашей процедуре испытаний, которая имеет то же имя функции, которую вы хотите позвонить. Если вы удалите эту линию, она должна работать:

Sub test() 
    MsgBox FileLastModified("S:\FILEPATHISHERE.xls") 
End Sub