Private Function IsTextFile(FileName As String) As Boolean
Dim FF As Integer
Dim FileData() As Byte
Dim K As Long
FF = FreeFile
Open FileName For Binary Access Read As FF
ReDim FileData(LOF(FF) - 1)
Get FF, , FileData
Close FF
For K = 0 To UBound(FileData)
If FileData(K) > 126 Then
IsTextFile = False
Exit For
End If
Next K
If K = UBound(FileData) + 1 Then IsTextFile = True
End Function
Please help me
Thanks