Discussion :

[Chess0]

Bonjour,

J'ai développé une application qui doit se mettre à jour par elle-même à son démarrage. Le principe est simple : au démarrage, je vérifie la version utilisée et celle qui existe dans un dossier partagé sur le réseau. Si la version est différente, on lance une seconde application qui effectue la mise à jour.

Cependant, j'ai un problème au niveau des permissions mais je ne comprends pas pourquoi car pour ce répertoire, tous les usagers ont un contrôle total. Voici l'erreur qui m'apparait :

Run-Time error '70':
Permission Denied


Et voici le code utilisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim fs As New Scripting.FileSystemObject
    If App.Major & "." & App.Minor & ".0." & App.Revision <> fs.GetFileVersion("\\RepPartage\Appli\Appli.exe") Then
        If MsgBox("Une nouvelle version a été créée." & vbCrLf & "Désirez-vous faire la mise-à-jour?", vbYesNo, "AVERTISSEMENT") = vbYes Then
            ' On lance l'application qui fait la MAJ
            Shell "C:\Appli\MAJAppli.exe", vbHide
        End If
    End If
    Set fs = Nothing
    End

FileCopy "\\RepPartage\Appli\Appli.exe", "C:\Appli\Appli.exe"
Shell "C:\Appli\Appli.exe", vbNormalFocus
End

J'utilise VB6 et les OS sont divers (2000 et XP).


Merci

[Phifi]

J'utilise VB6 et les OS sont divers (2000 et XP).

Tu utilises un serveur (2000) ? C'est comme tu le dis très probablement un problème de droits utilisateurs.

Le répertoire "\\RepPartage\" est sous quel OS ?

[Chess0]

Le répertoire partagé est sous Windows 2000 Profesional et l'ordinateur qui doit faire la mise à jour est sous Windows XP Profesional. Le répertoire qui contient la mise à jour (sous Win2000) donne le contrôle total à tout le monde et le répertoire qui doit recevoir la mise à jour (sous WinXP) aussi. Alors je ne vois pas comment les droits d'utilisateurs peuvent jouer dans ce cas là, mais il semblerait que ce soit le cas. Sauf que je ne vois pas ce que je peux faire de plus.. hehe

Une idée?

[Phifi]

Essaye déjà de déplacer le répertoire source (\\RepPartage\) sur un poste XP (laisse le "client" sur un XP également).

[Vince]

A tout hasard, dans les options de partage onglet "sécurité" t'as essayé de donner les acces à tous les utilisateurs, ou à l'utilisateur loggé sur la machine qui fait tourner ton soft ???

[Chess0]

Les droits sont pour tous les utilisateurs.

Je peux essayé de déplacer le répertoire partagé sur une autre machine qui a XP, mais j'espère sincèrement que ce n'est pas le problème..

[AlainTech]

Si ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
FileCopy "\\RepPartage\Appli\Appli.exe", "C:\Appli\Appli.exe"
Shell "C:\Appli\Appli.exe", vbNormalFocus
End

est ta mise à jour, je mettrais une pause entre la première et la 2e ligne.

En fait, le système essaie de lancer Appli.exe alors qu'il est encore en train de la copier.
Il répond donc qu'il n'a pas le droit car le droit (verrou) est pris par la copie.

[Chess0]

C'est une bonne idée, j'y avais pas trop pensé, à vrai dire. Je vous en donne des nouvelles aussitôt que j'ai le temps de tester.