For i = 0 To LB_ListeMachines.Items.Count - 1 Try Try For Each Item As String In LB_ListeFichier.Items Try Dim Filename As String = Item.Substring(Item.LastIndexOf(""), Item.Length - Item.LastIndexOf("")) Dim Filenames As String = Item.Substring(Item.IndexOf(""), (Item.Length - Item.IndexOf("")) - (Item.Length - Item.LastIndexOf(""))) MsgBox(Filenames) My.Computer.FileSystem.CreateDirectory(Filenames) IO.File.Copy(Item, "\" & ChercherIP(LB_ListeMachines.Items(i)) & "\ia" & Filenames & Filename, True) Application.DoEvents() 'Evite le Freez de l'appli Catch copyError As IOException MessageBox.Show("Erreur pour la copie des fichiers ! " & copyError.Message) End Try 'MessageBox.Show( " erreur dans l'affichage de l'adresse IP ) Next Catch dirNotFound As DirectoryNotFoundException MessageBox.Show(" Erreur de copie ! " & dirNotFound.Message) End Try Catch IOORE As IndexOutOfRangeException MessageBox.Show(" Erreur dans la liste ! " & IOORE.Message) End Try Next i MessageBox.Show("Copie terminée !")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question