Printable View
HI i was wondering if their are any in build ways to list the contents of a directory into say a listbox.
I want to store word documents in directories and then list all the documents in that directory.
And have the user be able to click on the list and it load that word document up
If anyone has any reference on this or code examples that would help a lot thanks
Perhaps Dkenny's post is a good place to start?
See http://www.vbforums.com/showthread.php?t=395514
Ok thanks i will check it out
I did a bit more reading and found that what i wanted to do was use a File List box
so i created one and made the code
Public Sub getLetters(z)
Dim Path As String
Path = App.Path 'gets the location of the application
Path = Path & "\" & z ' sets correct directory
File1.Path = Path
End Sub
The Problem i have now is when i try to select a directory which is not there it will error out.
Im not sure how to write a handeler to control this, what i want it to do is if it cant find the directory to create one.
somthing like
If path not found then
Mkdir path 'create directory at the path
File1.Path = Path
else
File1.Path = Path
end if
Public Sub getLetters(z)
Dim path As String
path = App.path ' gets the location of the application
path = path & "\" & z
Label12.Caption = path
On Error GoTo ErrorHandler
File1.path = path 'sets the directoy path
File1.Refresh
ErrorHandler:
Select Case Err
Case 0
' nothing no message needed
Case 70 ' error code permission denied
MsgBox "Could not create directory for patients letters, check your permissions and try again"
Case 76 ' error for path not found
MkDir path ' add directory creation here
Case Else ' reports error code on other errors
MsgBox "The most recent error number is " & Err & _
". Its message text is: " & Error(Err)
End Select
End Sub
Ok seem to have sorted it, my first time with all this stuff, so if any one knows better ways let me know for a future reference please :)