File.copy fonctionne pas [Résolu]

Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Dernière intervention
29 mars 2018
-
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

4 réponses

Messages postés
3241
Date d'inscription
jeudi 26 novembre 2009
Dernière intervention
26 novembre 2018
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
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Dernière intervention
29 mars 2018
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
Messages postés
3241
Date d'inscription
jeudi 26 novembre 2009
Dernière intervention
26 novembre 2018
0
Merci
et ça fonctionne maintenant

ah !!!
peux tu afficher ton code
Commenter la réponse de cs_ShayW
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Dernière intervention
29 mars 2018
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
Messages postés
12369
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2018
-
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.