short AppFileCount()
Function AppFileCount() As Integer
The number of files in the filename array.Return value
The number of files.
Parameters
Remarks
Make a ListAppFiles()
before, to get the names from the terminal.
Example
...
Public wsRfUsrApp As New RFUSRAPP
...
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 RFFILE, RFListFiles