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) ' если путь верен - Выводит Искомый файл
If Check_Fiel = "" Then Exit Function
strTemp = ""
x = Len(strPathFile) ' Проверяем папки пути
For i = 1 To x
If Mid(strPathFile, i, 1) = "\" Then
strTemp = Mid(strPathFile, 1, i - 1)
If Dir(strPathFile, vbDirectory) = "" Then
Exit Function
End If
End If
Next i ' Проверяем папки пути
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
|