Allora bisogna cambiare Function:
- Codice: Seleziona tutto
Function FileExists2(ByVal myDir As String, myName As String) As Boolean
'myTim = Timer
If Right(myDir, 1) <> Application.PathSeparator Then myDir = myDir & Application.PathSeparator
If Dir(myDir & myName) <> "" Then
FileExists2 = True
Else
FileExists2 = False
End If
'Debug.Print "*** " & Format(Timer - myTim, "0.00000000")
End Function
L'uso e' come la precedente:
- Codice: Seleziona tutto
=FileExists2(Percorso;NomeFile)
Potrai pero' usare i caratteri jolly, o scritti nella cella di origine di NomeFile oppure concatenandoli negli attributi della formula; ad esempio:
- Codice: Seleziona tutto
=FileExists2($E$1;A2&"*")
se A2 contiene "pippo" allora la formula restituira' Vero se sara' trovato nel Percorso indicato in E1 un file che comincia con pippo, esempio pippolo.doc, pippo2.xlsx etc
Per lavorare in piu' directory, immaginando che tu sai in quali directory bisogna cercare, il mio suggerimento e' che usi l'operatore O per ottenere la combinazione di piu' ricerche; es
- Codice: Seleziona tutto
=O(FileExists2($E$1;A2&"*.xls?");FileExists2($C$1;A2&"*.xls?"))
Questa formula restituira' vero se sara' trovato nel percorso indicato in E1 oppure in C1 un file di tipo xls, o xlsx, o xlsm che comincia con la stringa indicata in A2.
Ciao