Cercare un file specifico inserendo nome o parte di esso e se esiste decidere di aprirlo o stamparlo

Question

Buon pomeriggio,  ho la necessità di trovare un file in una determinata cartella inserendo il nome intero o parte di esso ( con la previsione di varie estensioni e non una precisa come accade quando si aprono tutti i files con la finestra Apri di Windows es. doc; xls ;xlsm;pdf. ecc.) e se esiste, con un Msgbox decidere di aprirlo o stamparlo.

Io ho trovato in rete parte di questo codice ma non riesco a scegliere come aprirlo o stamparlo. Inoltre anziché far uscire vero o falso quando lo trova o meno è possibile dire File esistente oppure File non trovato?

Grazie a tutti.

Public Sub Tester() ' trova file

Dim sFile As String

Dim sFolder As String

Dim msg As String

msg = InputBox("Inserisci nome del file")

sFolder = "C:\Users\CiccioPuccio\Desktop\PROVA"

sFile = msg & ".*"""

MsgBox FileExists(sFolder & sFile)

End Sub

'------------------>>

Public Function FileExists( _

sPercorso As String) As Boolean

FileExists = Len(Dir(sPercorso))

End Function

Answer 1

Buon pomeriggio  a tutti, chiedo il vostro prezioso aiuto per poter risolvere il problema che ho postato e che al momento non mi permette di andare oltre o/o capire quale altro modo utilizzare per fare ciò.

Un ringraziamento infinito lo rivolgo a tutti coloro che mi hanno aiutato e che mi hanno permesso di risolvere tanti problemi che da solo non avrei mai potuto portare a termine.

Ciao, Nicola.

Un sereno e felicissimo 2015 a tutti voi e ai vostri cari.

Answer 2

Buon pomeriggio a tutti, continuando con altre ricerche in rete ho modificato il codice sottostante che mi trova un file se esiste ma non riesco ad aprirlo e visualizzarlo, credo che con OPEN si dovrebbe aprire.

Mi aiutate a capire perché non si apre e se riuscite, vorrei, dopo aver trovato il file decidere se aprirlo oppure stamparlo direttamente ( magari tramite MSGBOX).

Grazie per l'aiuto che vorrete darmi.

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias _

"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal _

lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Private Sub RicercaFile()

Dim Percorso As String, file As String

Dim msg As String

msg = InputBox("Inserisci nome del file")

file = msg & ".*""" '".pdf"

Percorso = "C:\Users\CiccioPuccio\Desktop\PROVA"

If Dir(Percorso & file) > "" Then

ShellExecute 0, "OPEN", file, "", Percorso, 1

Else

MsgBox "Nessun file presente nell'archivio."

End If

End Sub