Question: I've just started to use Netconf server and I want to play with it.
I installed *OpenYuma* as netconf server, and for a client I would use the provided *yangcli* as a first approach.

My problem is that I cannot use **filtering** in get commands, since in the tutorials and docs are not any usable example, only previously written (outer) xml files are used, which are not shown in these docs.

I know that there are two types of filtering : *subtree* and *xpath*.
I do not care, which should be used, I only want to use one of them properly.

If I type *get* in *yangcli*, I get a lot of data.
In this case, I only want to get the *memInfo* part with all the *leafs*.

Please supplement/correct my command!!!

***yangcli>get filter=('xpath','memInfo') ???***

This command does not throw any errors, but only empty data object is received.
Thanks

Answer: 
In LotusScript the range for Long is between -2,147,483,648 and 2,147,483,647. That is 2 GB in Bytes.

There is a workaround to get the length for files <4GB, files bigger than that can not be measured with Filelen. The workaround (taken from [this german site](http://www.vbarchiv.net/tipps/tipp_886-dateigroesse-fuer-dateien-groesser-als-2gb-ermitteln.html) would be:

```
Public Function FileSize(ByVal sFile As String) As Currency
  ' Get size of file, 
  ' Works until size of 4GB
  Dim nSize As Long

  On Error Resume Next
  If Dir$(sFile) <> "" Then
    nSize = FileLen(sFile)
    If Err.Number <> 0 Then
      ' Error: Possible size > 4GB
      FileSize = 2147483648# + 2147483648#
    Else
      If nSize < 0 Then
    ' File is larger than 2GB!
        FileSize = 2147483648# + (2147483648# - Abs(nSize))
      Else
        FileSize = nSize
      End If
    End If
  Else
    ' If file not found
    ' give back -1 as value
    FileSize = -1
  End If
  On Error Goto 0
End Function

```

Unfortunately I do not know -and could not find- a method to go over 4GB...
FileLen() in LotusScript also lacks the Support of non-LMBCS characters in file names. This raises "File not found exception" error message.

Circumventing the 4 GB size limit plus non-Unicode support requires to resort to either LS2J or COM/OLE classes. This sample File wrapper LotusScript class fits these cases:

```vb
Dim f As New File( filename ) ' « Scripting.FileSystemObject.File »
Msgbox ( f.Size )

Private Class File ' « Scripting.FileSystemObject.File »
   Private fso As Variant
   Private this As Variant
   Sub New ( fileName As String )' File constructor
try: On Error GoTo catch
       Set fso = CreateObject( "Scripting.FileSystemObject" )
       Set this = fso.getFile( filename )
       GoTo finally
catch: Select Case Err
       Case Else
           Me.throw "Unexpected exception"
       End Select
finally: ' A place to release held resources    
    End Sub ' Constructor
    Public Property Get Size As Currency
        Me.Size = this.Size ' Variant to Currency
    End Property ' Size
    Private Sub throw( Text As String )
        Error Err, TypeName(Me) &" - "& LSI_Info(12) &" - "& Text &|
    | & "Error" & Str(Err) &" "& Error$
    End Sub ' Exception thrower
End Class ' « Scripting.FileSystemObject.File »

```