Copie de fichiersRésolu

Question

Voilà je voulais savoir si en vb il y a un équivalent de:

copy C:\source\*.* C:\destination\

Et  y a t il un moyen de ne remplacer le fichier existant uniquement si le fichier à copier est plus lourd?

Merci

Renfield · Accepted Answer

On ne peut que copier les fichiers un par un !


'# Repertoires source et destination
Dim Source As String: Source = "C:\Source"
Dim Dest As String: Dest = "C:\Dest"
       
'# Fichier *.*
Dim FileName As String
FileName = Dir$(Source & "*.*")
    
'# Pour tous les fichiers du repertoire source
While FileName <> ""
 '# Une erreur surviens si le fichier de Destination n'existe pas
 '# On le copie donc
 On Error Resume Next
 If FileLen(Dest & FileName) < FileLen(Source & FileName) Then
  FileCopy Source & FileName, Dest & FileName
 End If
        
 '# Fichier suivant
 FileName = Dir
Wend


Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Renfield · Answer

Tu peux Utiliser FileCopy

pour la taille, tu as FileLen

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

cs_Migs · Answer

Merci Renfield, mais je n'arrive à copier qu'un seul fichier avec FileCopy, je ne connais pas la syntaxe pour en copier plusieurs et encore moins la syntaxe de la methode FileLen

Peux tu m'éclairer? :p

re merci ;)

cs_Migs · Answer

Merci beaucoup ça marche nickel ! ;)

Copie de fichiers

4 réponses

Discussions similaires