RFUSRAPP.ListAppFiles (DOS legacy)

short ListAppFiles()

Function ListAppFiles() As Integer

Builds an extended filename array with the contents of the Client FLASH applications folder (E:\USRAPP).

Return value
The number of files in the Client FLASH applications folder (E:\USRAPP), or -1 if an error occurs.

Parameters

Remarks
The list contains the name, size, date and time.

Example
...
Public wsRfUsrApp As New RFUSRAPP
Dim sBuff As String
Dim iIdx As Integer
...
Public Sub Main()

wsRfIo.RFPrint 0, 0, " Getting App. List ", WLCLEAR + WLFLUSHOUTPUT
' Get the list of files in the RF Terminal
If wsRfUsrApp.ListAppFiles < 0 Then
    GoTo EndProgram ' RF error ...
End If


' Get the name of each file
For iIdx = 0 To wsRfUsrApp.AppFileCount - 1
    ' Print the name, size, date and time of the file
    wsRfIo.RFPrint 0, 2, wsRfUsrApp.AppFileName(iIdx), WLNORMAL + WLCLREOLN
    wsRfIo.RFPrint 0, 3, Str(wsRfUsrApp.AppFileSize(iIdx)), WLNORMAL + WLCLREOLN
    wsRfIo.RFPrint 0, 4, wsRfUsrApp.AppFileDate(iIdx), WLNORMAL + WLCLREOLN
    wsRfIo.RFPrint 0, 5, wsRfUsrApp.AppFileTime(iIdx), WLNORMAL + WLCLREOLN
    ' Get user response
    sBuff = wsRfIo.GetEvent()
    If sBuff = "" Or sBuff = Chr(27) Then
        GoTo EndProgram
    End If
Next iIdx
EndProgram:
End Sub

See also    RFUSRAPP, AppFileCount