Microsoft Office Tutorials and References
In Depth Information
With FFs
.Add “Pictures", “*.jpg"
End With
.AllowMultiSelect = True
If .Show = False Then Exit Sub
intCounter = 1
For Each vaItem In .SelectedItems
Worksheets(“ImagePreview”).Pictures.Insert _
intCounter = intCounter + 1
Next vaItem
End With
Exit Sub
MsgBox “You have not selected a valid picture."
End Sub
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.
Inside Out
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)
End Function
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.
Search JabSto ::

Custom Search