Dir() non trova il mio file .accdr

Question

Buongiorno a tutti,

Ho un problema,

In vba ho usato questo codice :  If Len(Dir(C:....\FMS.accdr,vbdirectory))=0 then codice da eseguire

Il problema è che non funziona perchè mi esegue il codice anche se il file esiste, perchè questo?

Ho controllato e in pratica la funzione Len restituisce sempre zero perchè dir() non trova il mio file, ma ho controllato il percorso e il file c'è, esiste in quel precso identico percosro, come posso fare?

Answer 1

OK, allora il tuo file ha probabilmente l'attributo di SISTEMA attivo

puoi fare in 2 modi:

a) togli l'attributo aprendo una finestra dos, ti posizioni nella cartella dove è contenuto il file e poi digiti

Attrib -s fms.accdr

b) cambi le istruzioni dir nel tuo codice VBA aggiungendo il parametro vbSystem: rifacendomi al tuo codice modifica così

Dir(locale,vbSystem)

David

Answer 2

Grazie mille David Ho risolto Grazie a tutti :)

Answer 3

Ciao Riccardo,

scusa la banalità :-)

in Dos hai provato a posizionarti nella cartella e dare il comando Attrib ?

Mimmo

Answer 4

Ho controllato e il flag nascosto, non è ne Vero ne Falso, è disabilitato, non so come procedere

Answer 5

Ciao Riccardo,

perdonami se mi ripeto ma visto che a quanto pare il problema non è il codice (da quanto dici non riesci a vedere il file neanche da una finestra dos) credo che tu debba indagare sugli attributi del file fms.accdr

Cliccaci sopra con il tasto destro del mouse e visualizzane le proprietà.

Ha per caso il flag di "nascosto"? Se si toglilo.

David