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

File.copy fonctionne pas [Résolu]

Signaler
Messages postés
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020
 -
Messages postés
15393
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 janvier 2021
 -
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
 50
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
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020
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
 50
et ça fonctionne maintenant

ah !!!
peux tu afficher ton code
Réponse 4 / 4
Messages postés
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020
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
15393
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 janvier 2021
 500
merci de penser à la coloration syntaxique.
Répondre Posez votre question