DRIVELISTBOX DIRLISTBOX FILELISTBOX

Private Sub Command1_Click()

    Dim RepSource As String 'on déclare nos variables
    Dim fichierSource As String
    Dim RepDest1 As String
    Dim RepDest2 As String
    Dim RepDest3 As String
    Dim RepDest4 As String      

    RepSource = Dir1.Path 'addresse du dossier source
    fichierSource = RepSource & "\" & File1.FileName 'addresse du dossier source + nom du fichier source    

    RepDest1 = Dir2.Path 'addresse du dossier de destination 1
    RepDest2 = RepDest1 & "\" & File1.FileName 'addresse du dossier de destination 1 + nom du fichier source    

    RepDest3 = Dir3.Path 'addresse du dossier de destination 2
    RepDest4 = RepDest3 & "\" & File1.FileName 'addresse du dossier de destination 2 + nom du fichier source     
    
     FileCopy fichierSource, RepDest2 'Copie du fichier vers dossier de destination 1
     FileCopy fichierSource, RepDest4 'Copie du fichier vers dossier de destination 2 
    
     File2.Path = File2.List(File2.ListIndex - 1) 'actualisation du dossier de destination 1
     File2.Refresh     
     
     File3.Path = File3.List(File3.ListIndex - 1)  'actualisation du dossier de destination 2
     File3.Refresh

   
End Sub

Private Sub Dir1_Change()
 
    File1.Path = Dir1.Path 'Liaison entre FileListBox 1 et DirListBox 1
    Selecteddir = Dir1.Path

End Sub

Private Sub Dir2_Change()
    
    File2.Path = Dir2.Path 'Liaison entre FileListBox 2 et DirListBox 2
    Selecteddir = Dir2.Path
    
End Sub

Private Sub Dir3_Change()

    File3.Path = Dir3.Path'Liaison entre FileListBox 3 et DirListBox 3
    Selecteddir = Dir3.Path

End Sub

Private Sub Drive1_Change()
   
    Dir1.Path = Drive1.Drive

End Sub

Private Sub Drive2_Change()

    Dir2.Path = Drive2.Drive
    
End Sub

Private Sub Drive3_Change()
    
    Dir3.Path = Drive3.Drive
    
End Sub

28 février 2006 07:32:43 :

titre plus explicite.

07 mars 2006 14:05:32 :

Écriture du code en entier et ajout d'une capture d'écran pour une meilleur visualisation du programme.