ник: Romiras
Re: FileUtils_GetFileType Function FileUtils_GetFileType(strPath As String) As String
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
FileUtils_GetFileType = fs.GetExtensionName(strPath)
End Function
надо будет попробыват без этого