[RISOLTO] Cerca file in cartelle e sottocartelle

Sul Foglio2 del file allegato ho inserito due pulsanti:

"Elenco File su Foglio2" e "Elenco File su UserForm1".

I file sono inseriti nell sottocartelle "2022", "2023" e "2024" che si trovano nella cartella "Archivio" in C:\.

Mentre la sub che sta sul pulsante "Elenco File su Foglio2" quella che sta sul pulsante "Elenco File su UserForm1" mi dà queso risultato:

Errore di run-time “5” - Chiamata di routine o argomenti non validi

In entrambi i casi davanti il nome del file dovrebbe essere preceduto da C:\.

Un aiuto.

Grazie

rex88

Festeggia la Festa del Papà e il Compleanno in modo serio:

https://www.acca.it/dichiarazione-conformita-impianti

PRATICUS 37/08 - DiCo

costa 99 €uro, mentre tu in 4 mesi hai sprecato più di 6000 € di tempo-lavoro e sei ancora in altomare

Me l'aspettavo il Suo intervento, come al solito fuori luogo e sempre lo stesso senza mai un piccolo aiuto!

Purtroppo non ho i soldi per comprarlo.

E poi faccio sapere a tutto il forum che il file di cui Lei ne fa cenno l'ho compeltato e dal quel dì ed è pienamente funzionante.

Aggiungo: ne ho fatto una copia anche adoperando il foglio che mi ha dato afrimpa e anche quello funziona perfettamente.

Quindi adesso posso proseguire in altre cose.

Il mio tempo lo gestisco come mi pare e gratuitamente.

Un ultima cosa: nella mia vita personale Lei non ha alcun diritto di entrarci e Si attenga solo ed esclusivamente ai Suoi compiti di Moderatore.

Spero di essere stato chiaro.

rex88

Eccomi qua a giustificare cosa ho combinato come mi è stato richiesto da alfrimpa.

Dopo tutto questo tempo dove in questo ed in altri forum ho letto diversi interventi anche quelli di alfrimpa ho trovato più pertinente a questa discussione quanto trovato sul sito di ennius http://ennius.altervista.org/vba/vba8.php.

Ringrazio quanti mi hanno spronato a fare da solo.

rex88

EDIT

Per me risolta.

ciao Rex
mi era sfuggito questo post, comunque bene se hai risolto con le indicazioni del buon Ennius (un caro saluto).

Comunque il tuo errore consiste nella dichiarazione:Private FSO As New Scripting.FileSystemObject

Avresti dovuto dichiarare FSO as object e poi nel corpo della sub CercaPdf(Path As String), aggiungere:
Set FSO = CreateObject("Scripting.FileSystemObject")

pertanto :


Non entro nel merito del resto.

SALUTI

Ciao Domenico,

intano grazie per avermi risposto.

Fermo restando quanto ho detto nel precedente post ho corretto il mio codice e mi dà l'errore.

la Sub CercaPdf(Path As String) vuole la Path, ovvero il percorso da aprire per scegliere il file.

Tu non gliela passi, quindi ti da errore.

Ti mostro come dovrebbe essere usata:

.....
Path = "c:\CartellaDoveCercare"
Call CercaPdf Path
.....

Fossi in te cambierei il nome della variabile, perchè "Path" è una parola riservata al vba.
saluti

Grazie.
Risolto
rex88

EDIT

Si può mettere Risolta.
Grazie.
rex88

Aspetto che venga messo [RISOLTA] per aprire una nuova discussione.

rex88 (nTdQ231201), 31/03/2024 09:52:

---

Aspetto che venga messo [RISOLTA] per aprire una nuova discussione.

---

si puo' sempre aprire una nuova discussione, anche se non c'è ancora il marchio RISOLTO sulla precedente, è sufficiente non continuare ad aggiornare quella precedente.