Public Function FileSize(ByVal Herkunft As String) As Long
 
MsgBox ("Es ist etwas da")
On Local Error Resume Next
Größe = FileLen(Herkunft)
FileSize = IIf(Err = 0, Size, -1)
On Local Error GoTo 0
 
End Function

cu luli

Visual Basic ist immer Learning bei Doing. Blo? manchmal braucht man Hilfe.
Mit viel suchen findet man meist den Fehler. (vor allen bei anderen)