Hello.
Chez moi le fichier ne fonctionne pas (sûrement une référence manquante, ou une mauvaise manip de ma part)
Peut importe, je pense que la modification doit être faite dans cette partie de code:
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
source = Label1.Caption & "\" & ListBox1.List(i)
destin = Label2.Caption & "\" & ListBox1.List(i)
If oFSO.FileExists(source) Then
oFSO.MoveFile source, destin
End If
End If
Next i
qui est situé dans CommandButton3_Click
oFSO.MoveFile source, destin
>>
oFSO.CopyFolder source, destin
où "source" sera le répertoire de ton dossier, donc sûrement:
source = Label1.Caption & "\"
De plus, il faudra changer le test:
If oFSO.FileExists(source)
>>
If oFSO.FolderExists(source) 'je sais pas si cette fonction existe :D