Page 1 sur 1
Accès au dossier partagé
Publié : mer. 12/oct./2022 21:19
par 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
Re: Accès au dossier partagé
Publié : mer. 12/oct./2022 21:49
par 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