Microsoft Office Tutorials and References
In Depth Information
.Add “Pictures", “*.jpg"
.AllowMultiSelect = True
If .Show = False Then Exit Sub
intCounter = 1
For Each vaItem In .SelectedItems
intCounter = intCounter + 1
MsgBox “You have not selected a valid picture."
The AllowMultiSelect property is set to Tr ue , allowing the user to select multiple files. The
list box is cleared of any previous entries, and the For…Each Loop adds the items into the
FileDialogSelectedItems collection. The ListIndex property is set to 0 each time the user selects
a new file, and then the Change event procedure is executed loading the new image.
Determining if a File Exists Using FileDialog
Previously in this chapter, you saw how to determine if a file existed using the FileSearch
object. Now that you have reviewed the FileDialog object, review the following function.
The same results are returned, but a different method is used to achieve the same results.
The function will return True if the file exists and False if it isn’t found.
Function FileExists2(fname) As Boolean
Set FileSys = CreateObject(“Scripting.FileSystemObject”)
FileExists2 = FileSys.FileExists(fname)
The function created an instance of the FileSystemObject object. The FileSystemObject
gives you access to the computer’s file system. Once access is granted to the computer’s
file system, the function uses the FileExists property of the FileSys object to determine if
the file exists. The code is much simpler and more elegant than the earlier example.