Error writing to file when VFP com server is called

[longda]

I created a small test com server in VFP that will return the operating system. It is a small exe.

When I run this code in excel I get a VFP error window stating "Error writing to file.". The VFP com server doesn't use any files so why does this come up? It happens right after I set the object variable to nothing.

Code in Excel:
Private Sub Workbook_Open()

Dim ox As New common
Dim ln As Integer
Dim ls As String
Set ox = CreateObject("common.common&quot
ls = ox.m_checkos()
ln = MsgBox("OS used " & ls, vbOKOnly, "TEST&quot
Set ox = Nothing

End Sub

 

[wgcs]

I don't offhand know what might be going wrong...
Post the code to the VFP COM server too and we'll have a better chance!

 

[longda]

Here is the code from the method of the ole public class:

*m_oscheck method: returns the OS name.
LOCAL l_cOS
l_cOS=OS(1)
DO CASE
CASE "5.01" $ l_cOS
RETURN "WINDOWS XP"
CASE "5.00" $ l_cOS
RETURN "WINDOWS 2000"
CASE "NT" $ l_cOS
RETURN "WINDOWS NT"
CASE "4.90" $ l_cOS
RETURN "WINDOWS ME"
CASE "4.10" $ l_cOS
RETURN "WINDOWS 98"
CASE "4.00" $ l_cOS OR "3.9" $ l_cOS
RETURN "WINDOWS 95"
CASE "3." $ l_cOS
RETURN "WINDOWS 3.1"
OTHERWISE
RETURN "UNKNOWN"
ENDCASE


Code from main prg:

*Common.prg: main program.
RETURN


That's all there is to it. Do you think it has something to do with a resource file? I am not sure if that would be it because this was only a test com object to try and get my feet wet.

Thanks in advance
Dave L.