Posez votre question Signaler

File.copy fonctionne pas [Résolu]

Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
29 mars 2018
 -
VB.NET Posez votre question Signaler
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

Répondre au sujet

4 réponses

Signaler Commenter la réponse de cs_ShayW
Messages postés
3247
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
26 décembre 2018
 45
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
Signaler Commenter la réponse de infodes
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
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
Signaler Commenter la réponse de cs_ShayW
Messages postés
3247
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
26 décembre 2018
 45
0
Merci
et ça fonctionne maintenant

ah !!!
peux tu afficher ton code
Commenter la réponse de cs_ShayW
Signaler Commenter la réponse de infodes
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
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!
Signaler Commenter la réponse de Whismeril
Whismeril
Messages postés
13307
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
24 mai 2019
 274 -
merci de penser à la coloration syntaxique.
Commenter la réponse de infodes

Votre réponse

Répondre au sujet
Posez votre question