Besoin Aide Concaténation en VB ??

Question

Bonjour, 

j'ai un probleme pour mon projet en visual basic 2008 
enfaite j'ai une base de données access 2000 
avec 4 champs ( N°Machine , NomMachine , AdresseIP , secteur ) 

je dois envoyer des fichiers sur un certain nombre de machines 
la liste des machines auquelle on dois envoyer un fichier se mettent dans une listbox 
dans cette listbox s'affiche le nom des machines 
cependant pour mon envoi j'ai besoin des adresse Ip pour mon arborescence d'envoi 
j'ai essayer de faire sous forme de variable mais jsais pas comment dire a cet variable de recuperer l'adresse IP 

voila mon code pour l'instant 

Dim var As String 
var = "\" 
Dim DestDir As String = var 
For Each Item As String In LB_ListeFichier.Items 
Dim Filename As String = Item.Substring(Item.LastIndexOf(""), Item.Length - Item.LastIndexOf("")) 
IO.File.Copy(Item, DestDir & Filename) 
Application.DoEvents() 'Evite le Freez de l'appli 
Next 

c'est sur la ligne en gras que je sais pas quoi mettre , il me faudrait quelque chose comme "\123.123.123.133\mes documents\..." et donc il faudrait que l'adresse IP varie en fonction des machines choisie dans la listbox 

Merci

Mayzz · Answer

Re,

Tu dois envoyer les fichiers sur chacun des postes cibles ?

Si oui alors il faut bien faire une seconde boucle qui va récupérer le chemin d'accès cible.

For Each Machine As String In LB_ListeMachine.Items 
    For Each Item As String In LB_ListeFichier.Items 
        Dim DestDir As String = "\" & Machine & "\Mes documents"
        Dim Filename As String = Item.Substring(Item.LastIndexOf(""), Item.Length - Item.LastIndexOf("")) 
        IO.File.Copy(Item, DestDir & Filename) 
        Application.DoEvents()
    Next 
Next

Mais la réponse étais déjà dans le code que je t'ai donné, en creusant un peu, tu aurais pu trouvé tout seul... La prochaine fois essayer au moins de comprendre le fonctionnement du code que l'on te donne.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Besoin Aide Concaténation en VB ??

1 réponse

Votre réponse

Discussions similaires