Hi Erel
Please find attached the NOT working version of the app.
' get the type of file the code file is
private Sub GetCodeFileType(sPath As String) As String
If File.Exists("", sPath) = False Then Return "Unknown"
Dim fContents As List
Dim fFirstLine As String
Dim fType As String
' read the file contents
fContents = File.ReadList("", sPath)
' read the first line of the file
fFirstLine = fContents.Get(0)
fType = jMash.MvField(fFirstLine,2,"=")
Return fType
End Sub
As indicated on top, when I change the variable here from
fContents to
fContent, the app works perfectly. I have assumed perhaps that because I have a global variable defined as
Private fContents As List, its the cause of the conflict. The libraries used in the app are in the Libraries folder inside the zip. Maybe there is something I'm missing somewhere.
With the wrong version, the sub routine runs once and stops thus the tree is not loaded. The corrected version works perfectly with the variable name change.
Thanks.