Visual Basic 6 - Verifica esistenza file o cartelle. Risultato sempre sbagliato.

Salve a tutti nuovamente.


Andando avanti con il mio programmino (in fase di sviluppo), mi si è presentato un altro problema,
dal quale credevo di riuscire ad uscirmene facilmente... E invece no!

Il problema è il seguente:

Ho necessità di verificare l'esistenza di una cartella e di un file (in due passaggi successivi, separati),
per poter procedere con la loro creazione, in caso contrario.

Si tratta di verificare una cartella D'ORIGINE, con annesso file,
e una cartella di DESTINAZIONE, nel quale tale file deve essere aggiunto
(Si tratta di fare un Back-up).
(ps: Back-Up che rinominavo in fase di creazione. E' da tener presente)

E fino a quì tutto bene!
E allora quale è il problema!?

Il problema è che mi sono complicato la vita, inserendo una funzione di verifica, nel caso che tale file (in origine),
sia mancante (per un motivo qualsiasi, esempio: cancellazione da parte dell'utente che lo utilizza...
Io nel caso in questione).

Ho provato con diversi metodi, tra i quali anche alcuni presenti nel sito.

La cosa insolita è che, quando ELIMINO il file di origine volontariamente, in fase di test, e lo riaggiungo
successivamente, mi risulta che il file è sempre mancante.

Non ho il codice sotto mano in questo momento, ma l'aggiungerò successivamente per porlo alla vostra attenzione.

So che c'è una differenza tra il considerare una cartella 'esistente' in senso generico,
piuttosto che in una determinata locazione. Ho tentato, ma sbagliavo anche tenendo presente questo fattore,
e non so come uscirne.

Se non mostri il codice di che parliamo?

Beh! Intanto potevano fioccare suggerimenti !!!
(Che non fa mai male! A volte ci sono 'scelte' differenti che si possono fare,
e che nella non consapevolezza, possono non essere prese in considerazione!)

Comunque!!!

HO RISOLTO!!

Nello scrivere quà il problema, mi è giunta l'illuminazione!!

Implementando qualche semplice funzione if, sono riuscito a scavalcare l'ostacolo,
e non ho bisogno di aggiungere delle API per la verifica delle cartelle, etc.

Mi è bastato una semplice funzione di verifica per il file, che ho posto separatamente,
e fornendo i percorsi già definiti come COSTANTI, l'ho utilizzata in più di un punto
ottenendo il risultato voluto.

'Controllo 'SPECIFICO' '2' dell'esistenza del file
Public Function EsistenzaFile2(ByVal str As String) As Boolean
Dir (BKP_FileName)
On Error Resume Next
EsistenzaFile2 = (GetAttr(str) And vbDirectory) = 0
End Function

Ad ogni modo, grazie.
Magari, mi rifarò sentire al prossimo impantanamento!

Ps: Io l'ho risolto con un sistema differente dalla prima stesura di codice, che pure sarebbe dovuta andar bene,
ma il perchè dell'errore che mi risultava, mi resterà un mistero.
Credo che in qualche modo, devo aver fatto si che qualcosa risultasse FALSO, anche quando non doveva. BO!?

Ma che fioccare!?

Invece di scrivere un post poco utile, potevi postare subito il codice e dire cosa non andava.



Le if non sono funzioni




Prima stesura mai vista.

Resterà un mistero finché tu non ne mostrerai il codice, ma dato che non lo fai che vuoi che ti si dica.

In ogni caso, QUESTO NUOVO CODICE NON FUNZIONA. Rivedilo