File.copy fonctionne pas [Résolu]

infodes 39 Messages postés mardi 26 novembre 2013Date d'inscription 29 mars 2018 Dernière intervention - 27 oct. 2014 à 20:55 - Dernière réponse : Whismeril 11969 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 18 août 2018 Dernière intervention
- 28 oct. 2014 à 14:49
Bonjour,

voici mon code:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim N As New DirectoryInfo("c:\users\ordis\documents\test")
Dim NR As DirectoryInfo = N.CreateSubdirectory("essaie")

Dim chemr As New DirectoryInfo("c:\users\ordis\documents\test2")

Dim extention As String = ("q:\users\ordis\documents\test2\_pdf")
extention = Path.GetFileNameWithoutExtension("c:\users\ordis\documents\test2\_pdf")

For Each file As String In Directory.GetFiles("c:\users\ordis\documents\test2", extention, System.IO.SearchOption.AllDirectories)

file.Copy("c:\users\ordis\documents\test2", "c:\users\jsgermain\documents\test")


Next


End Sub

file.copy ne fonctionne pas. Quel est l'erreur? Comment la résoudre? Je comprend que ça viens de la ligne: for each file... mais je ne sais pas pourquoi ça fonctionne pas et il ne prend pas non plus le deuxième path.

merci de votre aide!
Afficher la suite 

Votre réponse

5 réponses

cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - Modifié par cs_ShayW le 27/10/2014 à 22:50
0
Merci
Bonjour

Utilises les balises codes pour afficher ton code
Active option strict et option explicit

For Each file As String In Directory.GetFiles("c:\users\ordis\documents\test2", extention, System.IO.SearchOption.AllDirectories) 

file.Copy("c:\users\ordis\documents\test2", "c:\users\jsgermain\documents\test")


dans ta loop for, file est de la class string et tu essais d'appliquer
une méthode :copy qui n'existe pas
tu vois meme que file.copy est souligné d'un trait ondulé
donc utilises un autre nom
aussi

destFileName
Type: System.String
The name of the destination file. This cannot be a directory or an existing file.


et que veux tu copier ?
Commenter la réponse de cs_ShayW
infodes 39 Messages postés mardi 26 novembre 2013Date d'inscription 29 mars 2018 Dernière intervention - 28 oct. 2014 à 12:33
0
Merci
bonjour, merci pour les réponse. J'ai changé "file as string" par ma variable "extention" et ça fonctionne maintenant.

merci pour l'aide.
Commenter la réponse de infodes
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 28 oct. 2014 à 13:04
0
Merci
et ça fonctionne maintenant

ah !!!
peux tu afficher ton code
Commenter la réponse de cs_ShayW
infodes 39 Messages postés mardi 26 novembre 2013Date d'inscription 29 mars 2018 Dernière intervention - Modifié par Whismeril le 28/10/2014 à 14:48
0
Merci
voilà mon code:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 

Dim N As New DirectoryInfo("c:\users\ordis\documents\test") 
Dim NR As DirectoryInfo = N.CreateSubdirectory("essaie") 

Dim chemr As New DirectoryInfo("c:\users\ordis\documents\test2") 

Dim extention As String = ("_pdf") 
extention = Path.GetFileNameWithoutExtension("_pdf") 

For Each extention In Directory.GetFiles("c:\users\ordis\documents\test2", extention, System.IO.SearchOption.AllDirectories) 

file.Copy("c:\users\ordis\documents\test2", "c:\users\ordis\documents\test") 
My.Computer.FileSystem.RenameFile("c:\users\ordis\documents\essaie\_pdf", dirrep & ".pdf")

Next 


End Sub 

Ce n'est peut être pas selon les normes mais ça fonctionne.

merci pour l'aide encore!
Whismeril 11969 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 18 août 2018 Dernière intervention - 28 oct. 2014 à 14:49
merci de penser à la coloration syntaxique.
Commenter la réponse de infodes

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.