Public Function File_Presence(strPathFile As String) As Boolean
'проверки наличия файла по указанному пути
Dim strTemp As String
Dim i As Integer
Dim x As Integer
Dim Check_Fiel As String 'Искомый файл
File_Presence = False ' пока предположим нету файло по пути
If Nz(strPathFile) = "" Then Exit Function
Check_Fiel = Dir(strPathFile) ' если путь верен - Выводит Искомый файл
strTemp = ""
x = Len(strPathFile) ' Вычленяем файл из пути
For i = x To 1 Step -1
If Mid(strPathFile, i, 1) = "\" Then
strTemp = Mid(strPathFile, i + 1)
Exit For
End If
Next i ' Вычленяем файл из пути
' проверяем две переменные на равность
If Nz(Check_Fiel) = Nz(strTemp) Then
File_Presence = True
'MsgBox "Имеется файл"
End If
End Function
|