Accès au dossier partagé

[omega]

Bonsoir,

J'ai 2 Pc (Pc1 et Pc2) distants de 3 mètres l'un de l'autre. Sur le Pc1, j'ai partagé un dossier contenant des fichiers (Datax).
Ma question: Quelle est la syntaxe Pb qui permet d'accéder au dossier partagé à partir du Pc2 bien entendu. J'ai essayé d'utiliser le lecteur connecté à ce dossier (z:/) mais ça n'a pas marché, j'ai pensé peut être utiliser le chemin complet du dossier (nomPc1/Datax), je ne sais pas si ça marche... je n'ai pas encore essayé car le pc1 n'est pas présent maintenant puisque je suis chez moi.

Merci de m'éclairer

[case]

si tu as un lecteur connecte z: sur le pc1 qui pointe sur le pc2 ça doit marcher puisque c'est un lecteur comme un autre pour windows a moins qu'un pare feu te bloque ou que le pc2 soit éteint

voila 2 procedures de Rings. trouvable sur le forum US. pour connecter/deconnecter un lecteur reseau si ca peut aider.

Code : Tout sélectionner

Procedure ConnectDrive(Drive.s, Resource.s)
  NetR.NETRESOURCE
  ErrInfo.l 
  MyPass.s 
  MyUser.s 
  NetR\dwScope = #RESOURCE_GLOBALNET
  NetR\dwType = #RESOURCETYPE_DISK
  NetR\dwDisplayType = #RESOURCEDISPLAYTYPE_SHARE
  NetR\dwUsage = #RESOURCEUSAGE_CONNECTABLE
  NetR\lpLocalName =@Drive.s; If undefined, Connect with no device
  NetR\lpRemoteName =@Resource.s; Your valid share
  
  ;NetR.lpComment = "Optional Comment"
  ;NetR.lpProvider =    ; Leave this undefined
  ; If the UserName and Password arguments are NULL, the user context
  ; for the process provides the default user name.
  ErrInfo = WNetAddConnection2_(NetR, MyPass, MyUser, #CONNECT_UPDATE_PROFILE)
  If ErrInfo = #NO_ERROR 
    ProcedureReturn 1
    ;MessageRequester("Net Connection Successful!",   "Share Connected",0)
  Else
    ProcedureReturn 0;
    ;MessageRequester("ERROR: " +Str( ErrInfo ), " - Net Connection Failed!" +"Share not Connected",0)
  EndIf
EndProcedure

Procedure DisconnectDrive(Drive.s)          
  ErrInfo.l 
  strLocalName.s 
  strLocalName.s = Drive.s
  ErrInfo = WNetCancelConnection2_(strLocalName, #CONNECT_UPDATE_PROFILE, #True)
  If ErrInfo = #NO_ERROR 
    ;MessageRequester ("Net Disconnection Successful!",   "Share Disconnected",0)
    ProcedureReturn 1
  Else
    ProcedureReturn 0
    ;MessageRequester( "ERROR: " +Str( ErrInfo )," - Net Disconnection Failed!"+"Share not Disconnected",0)
  EndIf
EndProcedure