Fonction FileCopy pour copier des fichiers sur un serveur

Version imprimable

07/04/2009, 08h50
2berte

Fonction FileCopy pour copier des fichiers sur un serveur

Bonjour,

Je souhaiterais copier des fichiers à partir de mon application Vb.net sur un serveur de fichier.

Pour cela j'ai fait quelques petit test. Lorsque je suis connecté au serveur, mon fichier est bien copié sur le serveur. Mais dans le cas où je ne suis pas loggué au serveur, mon prog plante. Logique !

http://img6.imageshack.us/img6/8172/...lperwindow.jpg

Je cherche un moyen de pouvoir accéder au serveur en passant les identifiacations (login et mot de passe). J'ai regardé sur la MSDN http://msdn.microsoft.com/FileCopy, mais je n'ai trouvé aucune option par rapport au log.

mon code est le suivant :

Code:

FileCopy(_OpenFileDialog.FileName, "\\serveur1\sitaff\UserControlBandeauDevis.vb")

Auriez vous une idée de comment puis-je me logguer au serveur ?

En attente de vous lire en retour,

Cordialement

2berte
07/04/2009, 11h28
troxsa

Peut etre une solution de contournement qui est :
en cas d'exception sur les acces faire un mappage sur le chemin reseau voulu et de lancé par la suis la copie non ?

car là je vois pas comment faire autrement
07/04/2009, 11h58
Pol63

je crois qu'il y a des classes qui permettent de "le loger"

chercher impersonation sur google, ca donnera peut etre des pistes
si tu trouves, merci de poster la solution, je pense que ca peut etre utile à pas mal de monde
07/04/2009, 12h23
dudule

Bonjour,
Pourquoi n'utilises-tu pas de ftp pour faire du transfert de fichiers ?
C'est un protocole fait pour ca...
07/04/2009, 14h42
troxsa

Citation:

Envoyé par dudule

Bonjour,
Pourquoi n'utilises-tu pas de ftp pour faire du transfert de fichiers ?
C'est un protocole fait pour ca...

ftp pour un partage réseau ? (comment on peu faire ça ?)
07/04/2009, 14h56
dudule

Oui pourquoi pas ?
Sinon as tu essayé de lancer la commande "net use" avant de copier/coller ?

http://www.experts-exchange.com/Prog..._21642786.html
http://msdn.microsoft.com/en-us/library/aa385413.aspx

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<StructLayout(LayoutKind.Sequential)> _ 
   <a href="http://javascript:void(0)" target="_blank">Class</a> NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public LocalName As String
        Public RemoteName As String
        Public Comment As String
        Public Provider As String
    End Class 'NETRESOURCE
 
    Public Declare <a href="http://javascript:void(0)" target="_blank">Function</a> WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" ( _
       ByVal netResource As NETRESOURCE, _
       ByVal password As [String], _
       ByVal Username As [String], _ 
       ByVal Flag As Integer _
   ) As Integer
 
    Sub Main()
        Dim myNetResource As New NETRESOURCE
        myNetResource.dwScope = 2 'RESOURCE_GLOBALNET
        myNetResource.dwType = 1 'RESOURCETYPE_DISK
        myNetResource.dwDisplayType = 3 'RESOURCEDISPLAYTYPE_SHARE 
        myNetResource.dwUsage = 1 'RESOURCEUSAGE_CONNECTABLE
        myNetResource.LocalName = "P:"
        myNetResource.RemoteName = "\\sha-dds-01\Products"
        myNetResource.Provider = Nothing
 
        Dim ret As Integer = WNetAddConnection2(myNetResource, Password, UserName, 0)
    End Sub

C'est la source que j'ai trouvé sur un des lien ci dessus

07/04/2009, 15h17
2berte

Donc je ne sais plus quoi faire... :? Bien entendu l'utilisateur a un accés au répertoire où je souhaite mettre les fichiers sur le serveur. Le seul problème provient qe s'il n'est pas encore connecté sur le serveur...

Quel procédé doit-je faire ? utiliser de l'impersonation, du ftp ...

Je n'y connais strictement rien en réseau... :? Ai-je besoin des sockets ?

Comment ça fonctionne ?

Merci de m'aider.

En attente de vous lire en retour,

2berte
07/04/2009, 15h20
Pol63

le ftp semble etre une solution plutot facile à implémenter
il faut installer le service ftp sur ton serveur (meme sur un windows xp c'est faisable)

ensuite il y a des classes vers system.net qui permettent l'utilisation du ftp

Pour répondre à Troxsa, j'ai implémenter ta solution. Mais malheureusement elle s'avère ineficace.

Je mets malgré tout mon code :
ma classe NetRessource

Code:

1
2
3
4
5
6
7
8
9
10
Public Class NetRessource
  Public dwScope As Integer
  Public dwType As Integer
  Public dwDisplayType As Integer
  Public dwUsage As Integer
  Public LocalName As String
  Public RemoteName As String
  Public Comment As String
  Public Provider As String
End Class

Et le code qui s'execute avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Class Form1
  Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" ( ByVal netResource As NetRessource, ByVal password As String, ByVal Username As String, ByVal Flag As Integer) As Integer
 
  Private Sub _buttonParcourir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _buttonParcourir.Click
 
    'ouvre la boite de dialogue
    _OpenFileDialog.ShowDialog()
 
    Dim myNetResource As New NetRessource
    myNetResource.dwScope = 2 'RESOURCE_GLOBALNET
    myNetResource.dwType = 1 'RESOURCETYPE_DISK
    myNetResource.dwDisplayType = 3 'RESOURCEDISPLAYTYPE_SHARE 
    myNetResource.dwUsage = 1 'RESOURCEUSAGE_CONNECTABLE
    'myNetResource.LocalName = "P:"
    myNetResource.RemoteName = "\\serveur1\Sitaff"
    myNetResource.Provider = Nothing
 
    Dim ret As Integer = WNetAddConnection2(myNetResource, "stagiaire1", "", 0)
 
    ' copie le fichier
    FileCopy(_OpenFileDialog.FileName, "\\serveur1\sitaff\UserControlBandeauDevis.vb")
 
  End Sub
End Class

Donc cela me donne exactement la même erreur...

Par contre je vais regarder du coté du ftp.

Cordialement

2berte

07/04/2009, 16h51
2berte
Donc je suis entrain d'essayé avec la méthode ftp. J'ai créé un serveur ftp sur mon serveur. Celui fonctionne très bien, puisqu'avec FileZilla j'ai réussi à mettre des fichiers et en supprimer.

Les caractéristiques de mon serveur :
Adresse : 192.0.0.50
Port : 21
Identifiant : ""
pwd : ""

J'utilise ces lignes de codes pour copier mon fichier sur le FTP :
Code:

1 2 3 4 5 6 'ouvre la boite de dialogue _OpenFileDialog.ShowDialog() 'copie sur le serveur ftp My.Computer.Network.UploadFile(_OpenFileDialog.FileName, "ftp://192.0.0.50", "", "")
Mais il me génère une Exception :
http://img26.imageshack.us/img26/817...lperwindow.jpg

J'ai donc essayé avec l'adresse 192.0.0.50. Mais j'ai le même problème. Auriez vous une piste ?

En attente de vous lire en retour,

Cordialement

2berte
07/04/2009, 17h05
Pol63

derrière ftp://192.0.0.50 il faut mettre le nom du fichier de destination (il suffit de faire F1 et c'est expliqué)

dans system.io.path il y a une fonction qui te donne le nom du fichier à partir du chemin (vu que tu as le chemin d'origine)

après j'ai pas fait gaffe s'il fallait mettre ftp devant et/ou :21 à la fin
07/04/2009, 17h18
2berte

Je te remercie de ta réponse, mais en faite j'ai résolu ce problème avant de voir la solution.

Par contre je ne comprends pas tout, je transfère bien mes fichiers via mon appli en vb. Par contre comment se fait-il que je n'ai pas accès au fichiers que j'insére par l'appli en utilisant FileZilla. Je ne les voit même pas :?. pourtant j'ai les mêmes droits ...

Désolé, le réseau et moi ça fait 2 !! :aie:

En attente de vous lire en retour,

Cordialement

2berte :D

Donc c'est bon ça marche. Je ne sais pas ce qu'il s'est passé... :?

Donc je met mon code si ça peut intéresser quelqu'un :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 'ouvre la boite de dialogue Me._OpenFileDialog.ShowDialog() Try 'on réccupère le nom du fichier Dim mots() As String = Me._OpenFileDialog.FileName.Split("\"c) 'il faudrait vérifier si l'extension est valide, par exmple autoriser seulement des .zip, des .doc , des .pdf, etc ... 'myName = JJMMAAAAHHmmSS_NomDeMonFichier.Extension Dim myName As String myName = Now.Day.ToString & Now.Month.ToString & Now.Year.ToString & Now.Hour.ToString & Now.Minute.ToString & Now.Second.ToString & "_" & mots(mots.Length - 1) 'il faudrait vérifier dans un premier temps si le fichier n'existe pas avant de le copier 'On copie sur le serveur le fichier My.Computer.Network.UploadFile(Me._OpenFileDialog.FileName, "ftp://192.0.0.50/" & myName, "user", "pwd") Catch ex As Exception MsgBox(ex.Message) End Try
J'ai essayé de récuppérer mon fichier sur le serveur, cela fonctionne

Code:

My.Computer.Network.DownloadFile("ftp://192.0.0.50/" & myName, "D:\" & myName)

Mais ce qui me parait le plus étrange, c'est que je n'ai pas besoin de mon de passe pour que ça fonctionne. Est-ce normal ?

Sinon dernière petite question avant la fin du post. Est-ce possible d'ouvrir directement le fichier sur le poste du client sans le télécharger. En gros l'ouvrir en lecture seul ... :roll:

En attente de vous lire en retour,

Cordialement

2berte

Donc j'avance un petit peu :

J'ai trouvé le code suivant :
Code:

1 2 3 4 5 Dim Processus As New System.Diagnostics.Process() 'Me._listBoxFichier.SelectedItem().ToString contient le nom du ficier à ouvrir Processus.StartInfo.FileName = Me._listBoxFichier.SelectedItem().ToString Processus.Start()
Le problème de ce code, c'est qu'il m'ouvre toujours un nouvel onglet d'IE. Moi ce que je voudrais, c'est qu'il m'ouvre l'application par défaut pour chauqe type de fichier. Par exemple si c'est un fichier ".doc", l'appli m'ouvre word, un fichier ".pdf" l'appli m'ouvre adobe reader, etc ...

Autre remarque, si je suis connecté au serveur (que je me suis authentifié par l'explorateur), cela fonctionne très bien !

En attente de vous lire en retour,

Cordialement

2berte

08/04/2009, 10h25
Pol63

si tu demandes d'ouvrir un lien ftp ou http c'est ie qui s'ouvre
si tu veux ouvrir le fichier directement, il faut passer par un lien réseau "\\ip\fichier"

si ton répertoire ftp est accessible aussi en partage c'est faisable
08/04/2009, 10h47
troxsa
Bonjour

le truc c'est d'appeler la methode Argument de ton process et d'appeler le programme pour chaque extension
exemple a la va vite
Code:

1 2 3 Processus.StartInfo.FileName = "chemin d'Adobe.exe" Processus.StartInfo.argument = Me._listBoxFichier.SelectedItem().ToString Processus.Start
08/04/2009, 11h39
2berte

J'ai compris ce que tu disais Sperot51. Maitenant que tu le dis ça parait très logique :P.
Puis de toute manière je ne veux pas que le répertoire de mon FTP soit accessible via lecteur réseau...

Par contre pour ta proposition Troxsa, je ne pense pas qu'elle soit envisageable. En fait mon application est destinée à plusieurs utilisateurs. Je ne sais pas où l'utilisateur A va avoir installé Adobe Reader, de plus l'utilisateur B ne va peut-être même pas l'avoir installé au même endroit...
Es-tu d'accord avec moi, où c'est moi qui est mal compris ta solution.

Par contre, comment se fait-il qu'au niveau du ftp lorsque je passe par IE pour avoir le fichier, que je n'ai aucun mot de passe demandé.

Voici ma config sécurité au niveau du FTP :

http://img5.imageshack.us/img5/5607/pbftp.jpg

Merci de votre aide,

Cordialement

2berte
08/04/2009, 12h19
Pol63

un paramètre du serveur ftp "autoriser les connexions anonymes"
08/04/2009, 15h06
2berte

Ok, j'ai compris....

Savez vous pourquoi lorsque je veux ouvri des pdf. Cela ne se fait pas correctement. En faite j'ai une fenêtre Adobe Reader qui s'ouvre, et rien dedans, et j'ai également rien d'afficher dans mon navigateur. Cf Image ci dessous :

http://img266.imageshack.us/img266/1837/adobereader.jpg

Mais cela est vraiment aléatoire, parfois ça fonctionne et parfois ça ne fonctionne pas ...

En attente de vous lire en retour,

Cordialement

2berte