none
help me RRS feed

  • Question

  • help me 

    qui peut m'aidé?

    je veux faire une petite application en vb.net 2003:

    cette  application consiste à envoyer un dossier ;contenant des fichiers,de PC client vers un serveur(serveur linux Readhat)

    je ne connait pas quel composante utiliser dans vb.net pour faire la connection et la transfert des fichiers

     

     

    merci ...

     

    vendredi 8 février 2008 11:12

Toutes les réponses

  •  

    Bonjour 007enis!

    J'ai créer récement un programme de ce type. il passe a travers tous les dossier à partir d'un emplacement précis pour les copier vers un dossier Backup sur un serveur Windows Server 2003. J'ai écrit le code avec VS 2005.net mais je ne crois pas qu'il y ait beaucoup de différence pour le rendre compatible a VS 2003.net Je passe par un BackfroundWorker pour éviter que le programme gèle pendant la copie. J'envoie comme paramètre de copie un table de string (DossierSource, DossierCible) contenant tous les dossiers à copier. Malheureusement, la version que je t'envoie à besoin de tout les sous dossier pour faire la copie. Ex.:

    DossierSource       | DossierCible

    d:\                        | E:\backup

    d:\photo                | E:\backup\photo

    d:\video                 | E:\backup\video

    ...

     

    Si tu veux, j'ai la procédure aussi pour Détailler les sous-dossier d'un dossier en particulier

     

    Espérant t'avoir Aider.

    D.Stroy

     

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

    Dim compteur As Integer

    Dim Source(-1) As String

    Dim Destination(-1) As String

    Dim compteur2 As Integer

    Dim st() As String

    'Commencer le Backup

    For compteur = 0 To e.Argument.length - 1

    BackgroundWorker1.ReportProgress(Math.Round(compteur / e.Argument.length * 100), "Copie de : " & e.Argument(compteur).DossierSource)

    st = IO.Directory.GetFiles(e.Argument(compteur).DossierSource, "*.*", IO.SearchOption.TopDirectoryOnly)

    For compteur2 = 0 To st.Length - 1

    Try

    If Not IO.Directory.Exists(e.Argument(compteur).dossiercible) Then IO.Directory.CreateDirectory(e.Argument(compteur).DossierCible)

    IO.File.Copy(st(compteur2), e.Argument(compteur).dossiercible & Mid(st(compteur2), st(compteur2).LastIndexOf("\") + 1), True)

    Catch ex As Exception

    MsgBox("Impossible de copier le fichier " & st(compteur2))

    End Try

    Next

    Next

    End Sub

    vendredi 15 février 2008 18:33
  •  D.Stroy A écrit:

    J'ai écrit le code avec VS 2005.net mais je ne crois pas qu'il y ait beaucoup de différence pour le rendre compatible a VS 2003.net Je passe par un BackfroundWorker pour éviter que le programme gèle pendant la copie.

     

    Mlaheureusement. Le Background Worker est apparu dans le framework 2.0, donc Visual 2005, il va falloir adapter le code légèrement.

    vendredi 15 février 2008 20:03
    Modérateur