copier de fichier dans un repertoire precis

Question

Bonjour 
je suis nouveau sur le site et je debute avec Visual Basic 6

Mon probleme:
j'ai créer un bouton et je veux que celui-ci me fasse l'action suivante

copier plusieur fichiers d'un repertoire vers un repertoire avec un nom different a chaque fois

Peut -on m'aider SVP

JAY

ShadowMaster · Answer

créer un nouveau projet, ajout un FileListBox et ajoute ces quelque ligne:

Option Explicit
Private Nbr As Long, I As Long, fichierActu As String, Source As String, Destination As String
Private Sub Form_Load()
ChoixDossier "c:	emp" 'ton repertoire source
CopierDansRep "c:	emp2" 'ton repertoire destination
End Sub

Private Sub ChoixDossier(ici As String)
File1.Path = ici
Source = ici
Nbr = File1.ListCount
End Sub

Private Sub CopierDansRep(ici As String)
For I = 0 To Nbr - 1
    File1.Selected(I) = True
    fichierActu = File1.FileName
    Destination = ici & "" & fichierActu
    FileCopy Source & "" & fichierActu, Destination
    DoEvents
Next I
End Sub

Copier de fichier dans un repertoire precis

1 réponse

Discussions similaires