Browse for an attachment

[GraeagleBill]

I have an app where I'm using CDO to configure and send emails. Included is the option to attach a file, but I've not discovered how to obtain the path of a selected file via Explorer. Is there an interface to Explorer using Shell to get the path of a selected file?

[Micron]

I believe the .SelectedItems property returns a path string?

You're not stuck with some problem here, right? Why not Google such a question? Or are you at work and are prevented from using Google or any other search engine?

[ranman256]

usage with a startup folder:

vRet = UserPick1File( "c:" )
if vRet <> "" then txtBox = vRet

paste code below into a module:

Public Function UserPick1File(byval pvPath)     'ByVal pvFilter, Optional pvPath)
Dim strTable As String
Dim strFilePath As String
Dim sDialogMsg As String, sDecr  As String, sExt As String
Const msoFileDialogFilePicker = 3
Const msoFileDialogViewList = 1
'Application.FileDialog(msoFileDialogSaveAs) =2     'SAVE AS
'Application.FileDialog(msoFileDialogFilePicker) =3  'file OPEN

With Application.FileDialog(3) 
    .AllowMultiSelect = True
    .Title = sDialogMsg   ' "Locate a file to Import"
    .ButtonName = "Import"
    .Filters.Clear
    '.Filters.Add sDecr, sExt
        '.Filters.Add "Access Files", "*.accdb;*.mdb"
        '.Filters.Add "Excel Files", "*.xlsx"
    .Filters.Add "All Files", "*.*"
    .InitialFileName = pvPath
    .InitialView = msoFileDialogViewList    'msoFileDialogViewThumbnail
        If .show = 0 Then
           'There is a problem
           Exit Function
        End If
    'Save the first file selected
    UserPick1File = Trim(.SelectedItems(1))
End With
End Function

[GraeagleBill]

Thanks Ranman, your code will teach me what I need to learn about FileDialog object
Bill