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

Ciao Riccardo,

sicuro che quel file non abbia attributi speciali? Non è che per caso ha l'attributo "nascosto"?

Se provi con

Dir("C:\Users\nome.cognome\Desktop\FMS.accdr",vbHidden)=""

cambia qualcosa?

David

Answer 3

Grazie a tutti, David ho provato anche togliendo vbdirectory, ma non funziona comunque, il problema è che anche se scrivo lo stesso percorso, non mi trova il file, per esempio:

Dir("C:\Users\nome.cognome\Desktop\FMS.accdr")=""

copio e incollo il percorso sulla barra degli indirizzi e me lo trova !!!

E' questo che non capisco.

Ho anche provato a fare dir "C:\Users\nome.cognome\Desktop\FMS.accdr" da DOS e li non me lo trova!

???

Answer 4

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?

Public Sub m()

    If Dir("C:\Prova\pippo.txt") = "" Then

        MsgBox "File non trovato"

    Else

        MsgBox "File trovato"

    End If

End Sub

Answer 5

Ciao Riccardo,

togli vbdirectory.

If Len(Dir("C:....\FMS.accdr"))=0 Then

Potresti anche fare così:

If Dir("C:....\FMS.accdr")=vbNullString Then

David