
Заранее спасибо тем, кто принимал участие.
Private Function ReturnImageLength (ImgFile as String)
On Error Resume Next
Dim xi as Long
xi=FileLen (ImgFile)
If Err.Number<>0 Then
ReturnImageLength=0
Else
ReturnImageLength=xi
End If
xi=0
End Function
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 8