Sub ListView2_ItemClick (Position As Int, Value As String)
Dim l As List, i As Int, NewDir As String
l.Initialize
l.clear
For a=0 To Value.length-1
If Value.SubString2(a,a+1)=" " Then NewDir=NewDir & "\"
NewDir=NewDir&Value.substring2(a,a+1)
Next
Log("Changed: " & NewDir)
Value=NewDir
l = sf.SmbList(Value,Null) 'get a list of all samba groups
ListView2.Clear
Log(Value)
Log("Errors:" & sf.FSerror )
For i = 0 To l.Size - 1
Log(i & ":" & l.Get(i))
ListView2.AddSingleLine(l.Get(i))
Next
End Sub