savoir si on a un acces refusé lorsque l'on accede a une ressource reseauRésolu

Question

Bonjour,

voici mon problème :

j'ai une application VB qui accède à un répertoire partagé.

si mon compte est connu du serveur j'accède a la ressoucre, dans le cas contraire non.
Mais j'aimerai avoir le message d'erreur, genre Pb de droits d'acces et non repertoire introuvable.

voici un code qui fonctionne tres bien si on a accede au serveur mais que des droits restrictifs ont été mis sur le sous repertoire, message : acces refuse

par contre si le compte utilisateur n'ai pas connu sur le serveur parce que l'on est en workgroup, le message devient : chemin d'acces introuvable au lieu de acces refuse.

On Error GoTo Refus
Set vFSO = CreateObject("Scripting.FileSystemObject")
Set vFolder = vFSO.GetFolder("\serveurA\RepPartage")
TailleKO = Int((vFolder.Size) / 1024)
Set vFSO = Nothing
Refus:
MsgBox Err.Description & "   " & Err.Number

Avez vous une solution miracle ?

thierrydelepine · Accepted Answer

bon bah j'ai trouve tout seul une astuce,

je ne dis pas que c'est la meilleur solution mais en tout cas j'ai le resultat que j'estompe.
voila une solution :

Private Sub Command2_Click()
Dim Mytemp As Byte

On Error GoTo Refus
Open "\MyServeur\RepParatage\Rep\UnFichier.exe" For Binary As #1
Get #1, , Mytemp
Close #1
Exit Sub
Refus:
MsgBox Err.Description & "   " & Err.Number
End Sub

'on charge un fichier existant pour testé si on a le droit d'acces
'permet de remonter un errorlevel via Err.Number

'0 =    et MyTemp  n'est pas vide aucun probleme on accede au fichier
'0 'et MyTemp "" alors le fichier n'existe pas

'75 =   probleme de droits sur le repertoire partage ou ses sous repertoires

'52 =   Probleme de droits d'access a la machine (logging ou mot de passe du client n'est pas bon)

'76 =   le repertoire n'existe pas

'76 =   la machine n'existe pas ou deconnecte du reseau(completer le diagnostic par un ping par exemple)

moi ce qui m'interressait c'est le cas 52 !!!!!!

voila good prog

GOTOJEFE · Answer

Salut dis moi as tu trouver une solution a ton probleme
Car je crois que j'ai un probleme similaire.
Moi je voudrais acceder au repertoire en indiquant mon mots de passe.
Goto_JC

thierrydelepine · Answer

http://www.vbfrance.com/code.aspx?ID=28328

c'est la seule solution je crois

Savoir si on a un acces refusé lorsque l'on accede a une ressource reseau

3 réponses