Obj/COM file issue

[Terenz]

Hello,

I need a function can retrive the file type ( not the extension, .txt or .jpg but the file type like Text Document ) and i need it very fast

This is what i have:

$MyFile = @ScriptDir & "\MyHiddenFile.txt"
FileDelete($MyFile)
FileOpen($MyFile, 2)

MsgBox(0, 0, "WORK: " & _GetFileType($MyFile))

FileSetAttrib($MyFile, "H")

MsgBox(0, 0, "NOT WORK: " & _GetFileType($MyFile))

Func _GetFileType($Path)
    If Not FileExists($Path) Then Return False
    Local $oShell = ObjCreate("Shell.Application")
    $SplitFolder = StringSplit($Path, "\")
    For $Obj In $oShell.NameSpace(StringTrimRight(StringReplace($Path, $SplitFolder[$SplitFolder[0]], " "), 1)).Items
        If $Obj.Path = $Path Then
            Return $Obj.Type
            ExitLoop
        EndIf
    Next
EndFunc   ;==>_GetFileType

As you can see work for normal file but not for hidden file and i don't have idea why.

Solution?

Edit: With i "need it very fast" i mean the function not the answer, i don't want to be missunderstood

Edited February 7, 2014 by Terenz

[BrewManNH]

My rewrite of _FileGetProperty will work with it (see signature).