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 Runtime Referenceを追加しましたが、これはまだ動作していません。何か案は？私は他の必要な参照を見逃していますか？事前 アレックス

Answer 1

問題で

おかげで、あなたが呼び出したい関数と同じ名前を持つあなたのテスト手順、変数FileLastModifiedを宣言することです。あなたがその行を削除する場合、それは動作するはずです：

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