BESOIN D'AIDE SUR LA COPIE DE FICHIERS
Dragon
-
30 mai 2001 à 11:28
radroud21 Messages postés 15 Date d'inscription samedi 18 mars 2006 Statut Membre Dernière intervention 15 mai 2010 - 3 avril 2006 à 15:29
radroud21 Messages postés 15 Date d'inscription samedi 18 mars 2006 Statut Membre Dernière intervention 15 mai 2010 - 3 avril 2006 à 15:29
A voir également:
- BESOIN D'AIDE SUR LA COPIE DE FICHIERS
- Vscode rechercher dans tous les fichiers ✓ - Forum VB.NET
- Rechercher/Remplacer dans un fichier ✓ - Forum VB.NET
- Ouvrir gros fichiers textes ✓ - Forum C# / .NET
- Vscode comparer 2 fichiers ✓ - Forum Visual Basic
- Comparer deux fichiers - Forum C
6 réponses
Moi j'ai le meme probleme, 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 !!!!!
Svp c ultra urgent !!!!!
C'est bon je viens de trouver ! mail moi si tu veux le prog en entier, je te file deja le code !
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
end sub
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
end sub
Salut !
Moi aussi je suis en stage et j'avais besoin de connaitre ce code :-)
Je viens d'en trouver un autre :
Dim fso, r
Set fso = CreateObject("Scripting.FileSystemObject")
r = fso.copyfile("source", "destination")
Voila !
Au fait, tu saurais pas comment faire pour renommer des fichiers présents sur le disque dur ?
MErci A+
Moi aussi je suis en stage et j'avais besoin de connaitre ce code :-)
Je viens d'en trouver un autre :
Dim fso, r
Set fso = CreateObject("Scripting.FileSystemObject")
r = fso.copyfile("source", "destination")
Voila !
Au fait, tu saurais pas comment faire pour renommer des fichiers présents sur le disque dur ?
MErci A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
radroud21
Messages postés
15
Date d'inscription
samedi 18 mars 2006
Statut
Membre
Dernière intervention
15 mai 2010
3 avril 2006 à 15:29
3 avril 2006 à 15:29
je voudrai savoir le plus simple des codes pour copier un fichier!
radroud annamroud
radroud annamroud