Copie de fichier

Question

Je suis en stage et je dois faire un module qui copie un fichier selectionné grace aux controles drive, dir et file ds la racine de l'application !

Svp c ultra urgent !!!!!

Krasba · Answer

c bon g trouver :

Dim chemin As String
Dim RepDest As String
Dim nom As String

    'on recupère le chemin d'accès du fichier à attacher
    chemin = Dir1.Path
    If Right(chemin, 1) = "" Then
        chemin = chemin & File1.FileName
    Else
        chemin = chemin & "" & File1.FileName
    End If
    
    'On Définit le repertoire de destination
    RepDest = "D:\Partage\SuiviCommercial\VB"
    'on definit le nom du doc apres copie
    nom = File1.FileName
    
    'Copie du fichier
    FileCopy chemin, RepDest & nom

Copie de fichier

1 réponse

Discussions similaires