kat40
Messages postés38Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention19 mars 2008
-
17 sept. 2004 à 17:24
kat40
Messages postés38Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention19 mars 2008
-
20 sept. 2004 à 14:29
Bonjour à tous,
Se que je veux faire c'est lorsque mon application se load, me connecter :
lpszNetPath= "\\s02a\PRiVE\REVENU\Mon_dossier"
lpszLocalName= "X"
Si je comprend bien il faut que j'utilise WNetAddConnection! et lors de la fermeture de l'application je peux deconnecter ce lecteur.
Voici le code que j'utilise:
[code]
Public Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long
Public Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszLocalName As String) As Long
[\code]
[code]
Public Sub connexion_Click()
Dim strLocalDriveLetter As String
Dim strNetworkPathName As String
strLocalDriveLetter = "X:"
strNetworkPathName = "\\S02a\PRIVE\REVENU\Caisse_Depannage"
DoEvents
rc = WNetAddConnection(strNetworkPathName, strLocalDriveLetter)
End Sub
Public Sub deconnexion_Click()
rc = WNetCancelConnection("X:" + Chr(0), 0)
End Sub
[\code]
J'ai une erreur lors de l'exécution:
Bad DLL calling convention et l'arrêt se fait à la ligne
[code]
rc = WNetAddConnection(strNetworkPathName, strLocalDriveLetter)
[\code]
gaa179
Messages postés361Date d'inscriptionmercredi 21 mai 2003StatutMembreDernière intervention12 novembre 20092 17 sept. 2004 à 23:09
Salut,
Déjà le pathName n'est pas correcte. Il doit avoir le format suivant: \\[Server Name]\[Share Name]. Le dossier share doit être sharé sur ton serveur. Dans ton cas le sous répertoire Caisse_Depannage doit être sharé sur le serveur et tu mappes
\\SO2a\Caisse_Depannage.
Pour le reste je ne sais plus. J'ai un module au boulot. Je peux regarder lundi. Sinon tu peux toujours trouver de l'aide sur www.AllApi.net et tu selectionne Api-guide.