Discussion :

[lio33]

Bonjour,

Je cherche une solution pour pouvoir copier des fichiers et/ou dossiers sélectionnés par un utilisateur vers un dossier de destination.

J'ai déjà écrit une fonction pour la copie des fichiers mais j'aimerai aussi qu'elle puisse prendre en compte un éventuel dossier sélectionné par l'utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
    Dim oFD As FileDialog
    Dim oFSO As Scripting.FileSystemObject
    Dim oFl As Scripting.File
    ...
    'Affichage boite de dialogue et traitement
    If oFD.Show Then
        'Instanciation du FSO et du fileObject
        Set oFSO = New Scripting.FileSystemObject
        If oFD.SelectedItems.Count > 0 Then
            If MsgBox("Voulez-vous copier le(s) " & oFD.SelectedItems.Count & " fichier(s) sélectionné(s) vers le dossier de l'outillage N° " & lgNumDest & " ?", vbQuestion + vbYesNo, "LOGO : Confirmer copie des fichiers") = vbYes Then
                For i = 1 To oFD.SelectedItems.Count
                    Set oFl = oFSO.GetFile(oFD.SelectedItems(i))
                    strFichierOrigine = oFl.Path
                    If boolIhmOutilTypePN Then
                        'Si affichage est PN
                        strFichierDestination = Application.TempVars("CheminDossiers").Value & "\" & lgNumDest & "\" & oFl.Name
                    Else
                        'Si affichage est SN
                        strFichierDestination = Application.TempVars("CheminDossiers").Value & "\" & lgNumDest & "\" & oFl.Name
                    End If
                    'Copie du fichier vers sa destination
                    If Dir(strFichierDestination) = "" Then
                    FileCopy strFichierOrigine, strFichierDestination
                    End If
                Next i
                MsgBox oFD.SelectedItems.Count & " fichier(s) copié(s).", vbExclamation, "LOGO : Copie terminée"
            End If
        End If
        Set oFSO = Nothing
    End If

Merci d'avance !

[marot_r]

Personnellement je regarderai du côté de la vielle foncton Dos XCOPY qui fait exactement cela.

Le problème sera sans doute de découper ta copie multiple en une série de XCOPY, un par fichier.

Pour exécuter une commande DOS à partir de Access utiliser un truc du genre Shell("cmd /c TaCommandeDos"). Utiliser /k pour empécher la fenêtre de se refermer.

Attention c'est assynchrone, cela veut dire que la commande DOS est lancée et Access passe ensuite immédiatement à autre chose sans attendre. On peut surveiller l'éxécution et attendre la fin en faisant appel aux API de Windows.

A+