[VB6] Aiuto...verifica se la cartella esiste!

[jackk87]

Buongiorno,
ho la necessita di verificare se una cartella esiste perchè devo cercare i file in essa. ma ho il seguente problema:

dir1=Environ$("USERPROFILE") & "\Impostazioni locali\Dati applicazioni\Microsoft\Messenger\"

If dir(dir1) = "" Then

dove dir1 è una stringa ma non mi restituisce nessun valore è sempre nulla mentre se scrivo:

If dir("C:\Documents and Settings\Account\Impostazioni locali\Dati applicazioni\Microsoft\Messenger\") = "" Then

così funziona cioè se la cartella c'è mi da un valore quindi riesco a controllare però io non so il nome dell'account che è connesso quindi mi servirebbe salvarlo in una variabile ho provato anche con i file system ma sempre lo stesso problema qualcuno sa darmi una mano?grazie

[MarcoGG]

Environ$("computername") = nome macchina.
Environ$("username") = nome account utente.