...
'   <-- DECLARE -->
    Dim fso As Object       'FileSystemObject
    Dim Filed As Object     'Folder
    Dim File As Object
    Dim zF As Long
 
 
    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
'    Set Filed = fso.getfolder("F:\Projekte\ARC_Auswertung\LOG")           
' 'Test Lap
 
    Set Filed = fso.getfolder("\\ServerName\Dienste\BaBackup$\Last-log\")
...