file.copy fonctionne pasRésolu

Question

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	est")
        Dim NR As DirectoryInfo = N.CreateSubdirectory("essaie")
        
        Dim chemr As New DirectoryInfo("c:\users\ordis\documents	est2")
        
        Dim extention As String = ("q:\users\ordis\documents	est2\_pdf")
        extention = Path.GetFileNameWithoutExtension("c:\users\ordis\documents	est2\_pdf")

        For Each file As String In Directory.GetFiles("c:\users\ordis\documents	est2", extention, System.IO.SearchOption.AllDirectories)

            file.Copy("c:\users\ordis\documents	est2", "c:\users\jsgermain\documents	est")


        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!

cs_ShayW · Answer

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	est2", extention, System.IO.SearchOption.AllDirectories) file.Copy("c:\users\ordis\documents	est2", "c:\users\jsgermain\documents	est") 

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 ?

infodes · Answer

bonjour, merci pour les réponse.  J'ai changé "file as string" par ma variable "extention" et ça fonctionne maintenant.

merci pour l'aide.

cs_ShayW · Answer

et ça fonctionne maintenant

ah !!! 
peux tu afficher ton code

infodes · Answer

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	est") 
Dim NR As DirectoryInfo = N.CreateSubdirectory("essaie")

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

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

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

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

File.copy fonctionne pas

4 réponses

Votre réponse