List files

  • Thread starter Thread starter Naz
  • Start date Start date
N

Naz

Hi all

I'm trying to create a folder with process documents in it (mainly
xls,doc,ppt).
How can i get a list box to be populated with the contents of the folder and
then the file be opend when double clicked?

I know how to populate a list box from a query or table but not from a
windows folder.

All help is appreciated.

_____________
Naz
London
 
Hi all

I'm trying to create a folder with process documents in it (mainly
xls,doc,ppt).
How can i get a list box to be populated with the contents of the folder and
then the file be opend when double clicked?

I know how to populate a list box from a query or table but not from a
windows folder.

All help is appreciated.

_____________
Naz
London
Click to expand...

Add a List Box to your form.
Set it's RowSourceType property to Value List.
Leave it's record source property unbound.

Code the Form's Load event:
GetListFiles

Copy and Paste the below code into a Module:

Public Sub GetListFiles()

Dim MyName As String
Dim FS As Object
Dim I As Integer
Dim strList As String

On Error GoTo Err_Handler

Set FS = Application.FileSearch
With FS
.Lookin = "C:\MyPathAndFolderName\"
If .Execute > 0 Then
For I = 1 To .foundFiles.Count
MyName = Mid(.foundFiles(I), InStrRev(.foundFiles(I), "\") + 1)
strList = strList & MyName & ","
Next I
Else
MsgBox "There were no files found."
End If
End With
strList = Left(strList, Len(strList) - 1)
Forms!frmReportList!lstExternalFiles.RowSource = strList

Set FS = Nothing

Exit_This_Sub:
Exit Sub
Err_Handler:
MsgBox "Error #: " & Err.Number & " " & Err.Description
Resume Exit_This_Sub
End Sub


Change YourFormName and ListBoxName to whatever the actual name of
your form and list box is.

Code the ListBox Double-Click event:

Application.FollowHyperlink "c:\PathToFolder\FolderName\" &
Me.ListBoxName

I suggest the Double-click event to prevent the inadvertently opening
of a mistakenly selected file.
 
Back
Top