Dir
This function lists files and folders in a given directory.
Group:Device Extensions
Syntax: bOK = Device.Dir(vFiles, vDirectories)
bOK (Boolean) Returns True if the call was successful; False if the call failed.
vFiles (Variant) A string to be populated with a list of files in the folder. This list will be delimited with Chr(1)
vDirectories (Variant) A string to be populated with a list of directories in the folder. This list will be delimited with Chr(1).
Example:
Private Sub Button4_Click()
On Error Resume Next
Dim bOk As Boolean
Dim sFiles As String
Dim sDirs As String
bOk = Device.Dir("C:\temp\", sFiles, sDirs)
If bOk Then
App.MsgBox("Success")
Else
App.MsgBox("Failure")
End If
End Sub
Versions Supported: RFgen 5.2.3.0 and newer.