Comment changer d'emplacement de travail depuis une unité logique vers une adres

Question

Bonjour,

Mon application est install&#233;e sur l'emplacement suivant : 
"C:\program files\MonApplication"

Je souhaite que l'application puisse travailler dans un autre emplacement de mani&#232;re dynamique, suivant certaines conditions.
C'est autre emplacement pourrait &#234;tre "\ MonServeur\MonApplication"

Le code pourrait se r&#233;sumer &#224; &#231;a : 
Emplacement1 = "C:\program files\NouvelEmplacement"
Emplacement2 = "\ MonServeur\NouvelEmplacement"
If TypeUtilisateur = "1" then 
   ChDrive left(Emplacement1,1)
   ChDir Emplacement1
Else
   '  Se positionner dans l'emplacement2   <--- je ne sais pas faire
   ???????
End If

Comment dois-je faire pour que je sois positionn&#233; par d&#233;faut dans l'emplacement d&#233;fini par une adresse r&#233;seau ?

Merci par avance de votre r&#233;ponse.

cs_CanisLupus · Answer

Salut,

Si mes souvenirs sont exacts, les commandes DOS comme chdrive et chdir ne comprennent pas les chemins r&#233;seau si ces chemins ne sont pas associ&#233;s &#224; un lecteur logique.

Il est bien entendu possible de capturer une ressource r&#233;seau pour faire ce que tu veux mais le plus simple serait que tu codes :

Emplacement1 = "C:\program files\NouvelEmplacement"
Emplacement2 =  "\ MonServeur\NouvelEmplacement"
If TypeUtilisateur = "1" then 
  pathTravail = Emplacement1   
Else
  pathTravail = Emplacement2
End If

Et chaque fois que tu en as besoin, il faut que tu construises le chemin des fichiers que tu veux utiliser avec :

pathTravail & NomFichier

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Ou, peut-&#234;tre mieux :

Emplacement1 = "C:\program files\NouvelEmplacement"
Emplacement2 =  "\ MonServeur\NouvelEmplacement"
If TypeUtilisateur = "1" then 
  app.path = Emplacement1   
Else
  app.path = Emplacement2
End If

Dans ce cas, pas besoin de reconstruire le chemin de tes fichiers. A tester, je ne travaille pas comme &#231;a d'habitude.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_bmag · Answer

Merci pour tes r&#233;ponses.

App.path n'est pas modifiable (read-only), je suis en vb6, et il ne m'est pas possible de pr&#233;fixer l'ensemble des adressages physiques avec une varialbe contenant le chemin : trop de cas, trop de singularit&#233;s, trop de lignes (30 000).

Pourtant, lors que l'on utilise la commondialog sans le flag &H8, on peu bien se positionner d'une unit&#233; logique vers un chemin r&#233;seau, mais manuellement...
Je me dis qu'il devrait bien y avoir quelque chose qui remplace la commande chdrive...

cs_CanisLupus · Answer

Effectivement, app.path est en lecture seule. Excuses, la fatigue ou l'oubli ?
D&#233;sol&#233;, pas de r&#233;ponse simple pour l'instant.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Comment changer d'emplacement de travail depuis une unité logique vers une adres

4 réponses

Discussions similaires