ExeForDOS

Function FileExeFor (FileName As String) As String)
Dim F as Integer
Dim T as String * 1
F = FreeFile
Open FileName For Binary As #F
Get F,25,T
Close #F
If Asc(T) = 82 Then
FileExeFor = "Windows"
Else
FileExeFor = "Dos"
End if
End Function