Condividi tramite

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

Anonimo
2014-12-28T17:13:59+00:00

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

Microsoft 365 e Office | OneNote | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

2 risposte

Ordina per: Più utili
  1. Anonimo
    2014-12-30T14:35:34+00:00

    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.

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2014-12-29T16:03:21+00:00

    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

    La risposta è stata utile?

    0 commenti Nessun commento