I would like to build on it to include the datecreated of the file and be able to also sort with that date.
Expand|Select|Wrap|Line Numbers
- Const iPath = "C:\patient\scans\Insurance\"
- Dim myInsFile As String
- Dim strPatientId As String
- myInsFile = Dir(iPath & strPatientID & "*.*")
- lstInsurance.Clear
- Do While Not myInsFile = vbNullString
- lstInsurance.AddItem myInsFile
- myInsFile = Dir
- Loop
Ken