Determine file type

[sn0rg]

Hi guys

I am opening text files in vbscript, and need to discover if I should use TriStateTrue or TriStateFalse.

e.g.

Set objInputFile = objFSO.OpenTextFile(strFilePath, ForReading, False, TristateTrue)

is there a way to interrogate the file before I open it? If I open in the wrong format, the output is garbage.

 

[strongm]

Const ForReading = 1
Const TristateFalse = 0

Function IsUnicode(strFile)
With CreateObject("scripting.filesystemobject")
IsUnicode = (.OpenTextFile(strFile, ForReading, , TristateFalse).Read(2) = Chr$(255) & Chr$(254))
End With
End Function

 

[strongm]

(you may also want to Google "Unicode BOM" to understand what my code is actually doing, and thus its limitations)

 

[sn0rg]

Thanks for your help strongm, but I'm struggling. I get an error of "Microsoft VBScript compilation error: Invalid character" when the "isunicode =" line runs.

I made the following script based on your response:

	Const ForReading = 1, ForWriting = 2
	Const TriStateTrue = -1, TriStateUseDefault = -2, TristateFalse = 0

strFile = "C:\file.log"

if IsUnicode = True then
	wscript.echo "True"
Else
	wscript.echo "False"
End if


Function IsUnicode(strFile) 
	With CreateObject("scripting.filesystemobject")        
		IsUnicode = (.OpenTextFile(strFile, ForReading, ,TriStateFalse).Read(2) = Chr$(255) & Chr$(254))
	End With
End Function

 

[tsuji]

[tt]Chr(255) & Chr(254)[/tt]

 

[HarleyQuinn]

How about:

Const ForReading = 1, ForWriting = 2
    Const TriStateTrue = -1, TriStateUseDefault = -2, TristateFalse = 0

strFile = "C:\file.log"

if IsUnicode(strFile) = True then
    wscript.echo "True"
Else
    wscript.echo "False"
End if


Function IsUnicode(strFile)
    With CreateObject("scripting.filesystemobject")        
        IsUnicode = (.OpenTextFile(strFile, ForReading, ,TriStateFalse).Read(2) = Chr(255) & Chr(254))
    End With
End Function

Hope this helps

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[HarleyQuinn]

Miles faster than me tsuji!

But I did catch the function call...

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[tsuji]

Perfect.

 

[strongm]

Chr vs Chr$ - see, that's my VB, rather than VBScript background showing through. ANd there I was thinking I'd caught all the necessary changes before posting ...

 

[sn0rg]

Thanks guys... feeling somewhat embarrassed that I didn't spot the $, but it works great.