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 |