1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

File.copy fonctionne pas [Résolu]

Signaler
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
29 mars 2018
 -
Messages postés
14599
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 août 2020
 -
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
A voir également:

4 réponses

Réponse 1 / 4
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
 49
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 ?
Réponse 2 / 4
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
29 mars 2018
bonjour, merci pour les réponse. J'ai changé "file as string" par ma variable "extention" et ça fonctionne maintenant.

merci pour l'aide.
Réponse 3 / 4
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
 49
et ça fonctionne maintenant

ah !!!
peux tu afficher ton code
Réponse 4 / 4
Messages postés
39
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
29 mars 2018
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
Messages postés
14599
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 août 2020
 427
merci de penser à la coloration syntaxique.
Répondre Posez votre question