Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Ciao a tutti,
per verificare l’esistenza di un percorso ho trovato due metodi:
1° Metodo
Dim Path As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Path =Percorso di cui si vuole verificare l’esistenza
If (fso.FolderExists(Path) = True) Then …… Set fso = Nothing
2° Metodo
Dim Path As String
Path =Percorso di cui si vuole verificare l’esistenza
If (Len(Dir(Path, vbDirectory)) > 0) Then ……
Volevo sapere se i due metodi sono equivalenti, o se c’è uno meglio dell’altro, e perchè?
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
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.
Risposta accettata dall'autore della domanda
Ciao Eulero,
Sicuramente il secondo metodo è migliore del primo perchè utilizza solo istruzioni native di VBA.
Il primo metodo al contrario deve istanziare un oggetto da una libreria esterna da VBA.
Ciao
Giorgio Rancati
L'istruzione Dir è più semplice e pulita, è stata progettata per lo scopo e non innesca l'errore se il file o la cartella non esiste, l'eventuale errore si presenta se non esiste il device (unità di rete o disco).
Grazie Giorgio! Volevo chiarire due cose. Il device sarebbe il disco o l’unità di rete dove è installato il Sistema Operativo?
Esso è dato da Environ(SystemDrive)? Omeglio per:
· risolvere l’eventuale errore dovuto all’inesistenza del device, e quindi
· fare in modo che l’istruzione: (Dir(Path & "\NomeFile.accdb") <> “”) non inneschi nessun tipo di errore,
è sufficiente definire il Path con: Environ(SystemDrive) & “............”
oppure: Environ(HomeDrive) & “............”
anziché: “C:............”
vero? o sbaglio?
Come vi sembra questo metodo rispetto a quello precedente?
L'istruzione Dir è più semplice e pulita, è stata progettata per lo scopo e non innesca l'errore se il file o la cartella non esiste, l'eventuale errore si presenta se non esiste il device (unità di rete o disco).
Si potrebbe creare una funzione simile per verificare anche l’esistenza di un percorso?
certamente
Public Function EsisteDir(ByVal str As String) As Boolean
On Error Resume Next
EsisteDir = (GetAttr(str) And vbDirectory) = vbDirectory
End Function
Ciao
Giorgio Rancati
Un argomento strettamente correlato alla verifica dell'esistenza di un percorso, è la verifica dell'esistenza di un file.
In modo simile a quanto visto nei post precedenti, per verificare l’esistenza di un percorso e l’esistenza di un file
si possono utilizzare le seguenti istruzioni:
Se il percorso (Path) esiste allora à If (Dir(Path, vbDirectory) <> “”) Then
Se il file (NomeFile.accdb) esiste allora à If (Dir(Path & "\NomeFile.accdb") <> “”) Then
Un altro metodo per verificare l’esistenza di un file potrebbe essere il seguente:
If EsisteFile(Path & "\NomeFile.accdb") Then …
che si basa sulla seguente funzione:
Public Function EsisteFile(ByVal str As String) As Boolean
On Error Resume Next
EsisteFile = (GetAttr(str) And vbDirectory) = 0
End Function
Come vi sembra questo metodo rispetto a quello precedente?
Si potrebbe creare una funzione simile per verificare anche l’esistenza di un percorso?
Grazie della risposta molto chiara!