Copier fichier si présent ...
dwit
Messages postés
3
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
27 janvier 2005
-
13 janv. 2005 à 13:34
jef_b Messages postés 28 Date d'inscription jeudi 22 avril 2004 Statut Membre Dernière intervention 2 juin 2005 - 13 janv. 2005 à 15:14
jef_b Messages postés 28 Date d'inscription jeudi 22 avril 2004 Statut Membre Dernière intervention 2 juin 2005 - 13 janv. 2005 à 15:14
A voir également:
- Copier au présent
- Vba copier coller dans une autre feuille - Forum Visual Basic
- Vba copier un fichier et le renommer - Forum Visual Basic
- Copier le contenu d'une feuille excel dans une autre - Forum Visual Basic
- Detecteur copier coller gratuit ✓ - Forum VB.NET
- Vba copier une feuille dans un autre classeur sans ouvrir - Forum Visual Basic
3 réponses
jef_b
Messages postés
28
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
2 juin 2005
13 janv. 2005 à 13:47
13 janv. 2005 à 13:47
Bonjour !
Pour faire plus simple... utilise le FileSystemObject !
if fso.fileExists (chemin2+element) then
fso.CopyFile(chemin1 + element, chemin2 + element)
end if
Jef
Pour faire plus simple... utilise le FileSystemObject !
if fso.fileExists (chemin2+element) then
fso.CopyFile(chemin1 + element, chemin2 + element)
end if
Jef
dwit
Messages postés
3
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
27 janvier 2005
13 janv. 2005 à 14:18
13 janv. 2005 à 14:18
Super ca marche ...
maintenant si je peux pousser un peu plus loin , je souhaiterai aussi que cette copie inclue les sous-folder
Voila mon code pour le moment :
Dim chemin1
As
String
Dim chemin2
As
String
Dim nomFichier
As
String
Dim i
As
Integer
Dim strFichier
As
String
Dim fso, r
fso = CreateObject("Scripting.FileSystemObject")
chemin1 = TextBox1.Text
chemin2 = TextBox2.Text
Dim Fichier
As
String
Fichier = Dir$(chemin1 & "*.*")
'chemin se termine par ""
While Fichier <> ""
Fichier = Dir$()
'MsgBox("Affichage : " + chemin1 + element + " Element 2" + chemin2 + element)
If fso.fileExists(chemin2 + Fichier)
Then
fso.CopyFile(chemin1 + Fichier, chemin2 + Fichier)
Label1.Text = Label1.Text + " " + Fichier
End
If
End
While
Est-ce compliqué a mettre en oeuvre ?
maintenant si je peux pousser un peu plus loin , je souhaiterai aussi que cette copie inclue les sous-folder
Voila mon code pour le moment :
Dim chemin1
As
String
Dim chemin2
As
String
Dim nomFichier
As
String
Dim i
As
Integer
Dim strFichier
As
String
Dim fso, r
fso = CreateObject("Scripting.FileSystemObject")
chemin1 = TextBox1.Text
chemin2 = TextBox2.Text
Dim Fichier
As
String
Fichier = Dir$(chemin1 & "*.*")
'chemin se termine par ""
While Fichier <> ""
Fichier = Dir$()
'MsgBox("Affichage : " + chemin1 + element + " Element 2" + chemin2 + element)
If fso.fileExists(chemin2 + Fichier)
Then
fso.CopyFile(chemin1 + Fichier, chemin2 + Fichier)
Label1.Text = Label1.Text + " " + Fichier
End
If
End
While
Est-ce compliqué a mettre en oeuvre ?
jef_b
Messages postés
28
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
2 juin 2005
13 janv. 2005 à 15:14
13 janv. 2005 à 15:14
Re !
Pas particulièrement...
Tu crées une routine qui sera récursive...
private sub maRoutine (repSource as String, repDest as String)
Dim fso as new FileSystemObject
Dim lesFichiers as Files
dim fichier as File
lesFichiers = fso.getFolder(repSource).files ' récupération des fichiers du répertoire source
' là on fait la copie de tous les fichiers
For Each fichier In lesFichiers
' vérification de son existance et copie
If
fso.fileExists(
repDest + Fichier)
Then
fso.CopyFile(
repSource + Fichier, repDest + Fichier)
Label1.Text = Label1.Text + " " + Fichier
End
If
next
dim lesRepertoires as Folders
Dim repertoire as Folder
' récupération des répertoires, et appel récursif de la méthode pour chaque répertoire trouvé
lesRepertoires = fso.getFolder(repSource).subFolders
for each repertoire In lesRepertoires
' test de l'existance du répertoire dans le répertoire destination...
' si existant alors appel à maRoutine, sinon on passe au suivant
' (par rapport ce que tu avais posé comme problème...)
if fso.folderExists(rep) then
maRoutine (repertoire.path, repDest & nouveau répertoire destination)
end if
next
end sub
Ca devrait marcher... Désolé mais je fais ça à chaud alors ya pi etre des erreurs...
L'idée générale est là en tous cas...
Jef
Pas particulièrement...
Tu crées une routine qui sera récursive...
private sub maRoutine (repSource as String, repDest as String)
Dim fso as new FileSystemObject
Dim lesFichiers as Files
dim fichier as File
lesFichiers = fso.getFolder(repSource).files ' récupération des fichiers du répertoire source
' là on fait la copie de tous les fichiers
For Each fichier In lesFichiers
' vérification de son existance et copie
If
fso.fileExists(
repDest + Fichier)
Then
fso.CopyFile(
repSource + Fichier, repDest + Fichier)
Label1.Text = Label1.Text + " " + Fichier
End
If
next
dim lesRepertoires as Folders
Dim repertoire as Folder
' récupération des répertoires, et appel récursif de la méthode pour chaque répertoire trouvé
lesRepertoires = fso.getFolder(repSource).subFolders
for each repertoire In lesRepertoires
' test de l'existance du répertoire dans le répertoire destination...
' si existant alors appel à maRoutine, sinon on passe au suivant
' (par rapport ce que tu avais posé comme problème...)
if fso.folderExists(rep) then
maRoutine (repertoire.path, repDest & nouveau répertoire destination)
end if
next
end sub
Ca devrait marcher... Désolé mais je fais ça à chaud alors ya pi etre des erreurs...
L'idée générale est là en tous cas...
Jef