FileDiaglog OK or CANCEL

[vman21]

Greetings. How do you write the code to execute something when OK or CANCEL button is clicked on a fileDialog?

Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = Filename(f.SelectedItems(i), sPath)
    Next
End If

Public Function Filename(ByVal strPath As String, sPath) As String
sPath = Left(strPath, InStrRev(strPath, "\"))
Filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function

 

[James Dudden]

You could do something like this:

Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sfile = f.SelectedItems(i)
    Next
End If

If sfile <> "" Then
'Run code if a file has been selcted
    sfile = FileName(f.SelectedItems(i), sPath)
End If

 

[pr2-eugin]

Just wondering why would you use a For loop here? You have declared to disallow multiselect, so using a For is just pointless really. Could you just not get .SelectedItems(1)?