errore di run-time 5

[Giuseppe]

Buongiorno.
In una form ho inserito un pulsante che mi apre una finestra windows e che importa in una casella di testo il percorso e il nome del file selezionato.
La routine è:
Dim F As Object
Set F = Application.FileDialog(3)
F.AllowMultiSelect = True
F.Show
Me.PercorsoFile = F.selecteditems(1)
Il problema è che nel momento in cui non trovo il file da selezionare e clicco annulla sulla finestra windows, la routine mi restituisce errore di run-time '5:
chiamata di routine o argomenti non validi
Cosa devo inserire per impedire tale errore?
Grazie.
Giuseppe

[BFS]

devi gestire l'errore

nel evento click del tuo pulsante metti

On Error GoTo errore

Dim F As Object
Set F = Application.FileDialog(3)
F.AllowMultiSelect = True
F.Show
Me.PercorsoFile = F.selecteditems(1)

Exit Sub
errore:
If Err.Number = 5 Then
MsgBox "Nessun file selezionato"
End If
end sub

ciao

[Giuseppe]

Grazie tanto Fabio.
Ciao.

[@Alex]

La collection [selecteditems], espone la proprietà COUNT... perchè non verifichi che sia>0 prima di accedere ad un suo Oggetto...?

If F.selecteditems.Count>0 then
Me.PercorsoFile = F.selecteditems(1)
End if

Ovviamente fai attenzione al Parametro MULTISELECT che hai inutilmente impostato a TRUE, dico inutilmente in quanto leggi solo un FILE il PRIMO...

@Alex

[Giuseppe]

Grazie Alex.
In effetti avevo fatto questo tentativo ma impostando erroneamente la seguente condizione:
if isNull (F.selecteditems(1))
Poi grazie a Fabio avevo risolto, adesso so che ho due possibilità nel gestire casi come questi.
Ciao.
Giuseppe