BSTR AppFileName(short nDex)
long AppFileSize(short nDex)
BSTR AppFileDate(short nDex)
BSTR AppFileTime(short nDex)
Function AppFileName(nDex As Integer) As String
The name of a file in the filename array.
Function AppFileSize(nDex As Integer) As Long
The size of a file in the filename array.
Function AppFileDate(nDex As Integer) As String
The date of a file in the filename array.
Function AppFileTime(nDex As Integer) As String
The time of a file in the filename array.
Return value
The name, size, date or time of the file.
Parameters
nDex
Index in the name array (0 based).
Remarks
nDex must be smaller than AppFileCount().
Name (8.3), w/o drive and directory.
Size, in bytes.
Date, (YYYYMMDD).
Time (HHMMSS).
Applications are stored in the FLASH memory drive (E:) in the user application folder
(E:\USRAPP). (DOS legacy)
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