none
Copy dans un dossier RRS feed

  • Question

  • Bonjour

    je ne parvient pas à trouvé une solution sur mon bout de code pour la copie d'un fichier DLL dans un dossier (System,System32, syswow64).

    Dim source As String = "./DLL/" 'dossier source ou ce trouve le fichier a copier
            Dim destination As String = FolderBrowserDialog1.ShowDialog() = DialogResult.OK 'dossier choisi par l'utilisateur
    
            If DialogResult.OK = DialogResult.OK Then
                My.Computer.FileSystem.CopyDirectory(source, FolderBrowserDialog1.SelectedPath, True)
            End If

    une foie lancé j'obtiens  ce message d'erreur .

    " Une exception non gérée du type 'System.IO.IOException' s'est produite dans Microsoft.VisualBasic.dll "

    MErci pour votre aide.


    .::ZeroC00L::.

    lundi 9 novembre 2015 20:47

Réponses

  • Bonjour,

    Un exemple qui fonctionne.

    Il faut l'exécuter en tant qu'administrateur afin d'avoir accès aux répertoires systèmes .

     Dim sourcepath As String = "C:\Users\Pascal\Documents\"
            Dim source As String = "test.txt"
            Dim dlg As New FolderBrowserDialog()
    
            If dlg.ShowDialog() = DialogResult.OK Then
                Dim path As String = dlg.SelectedPath
    
                My.Computer.FileSystem.CopyFile(sourcepath & source, path & "\" & source, True)
            End If

    Bien à vous.


    ZGuideTV.NET - administrator/developer


    lundi 9 novembre 2015 22:29

Toutes les réponses

  • je vient d'essayer avec ceci :

     My.Computer.FileSystem.CopyDirectory(source, FolderBrowserDialog1.SelectedPath, True, FileIO.UIOption.AllDialogs)

    est j'ai cette erreur :

    " Une exception non gérée du type 'System.ComponentModel.InvalidEnumArgumentException' s'est produite dans Microsoft.VisualBasic.dll

    Informations supplémentaires : La valeur de l'argument 'showUI' (-1) n'est pas valide pour le type Enum 'UIOption'. "


    .::ZeroC00L::.

    lundi 9 novembre 2015 21:08
  • Bonjour,

    Un exemple qui fonctionne.

    Il faut l'exécuter en tant qu'administrateur afin d'avoir accès aux répertoires systèmes .

     Dim sourcepath As String = "C:\Users\Pascal\Documents\"
            Dim source As String = "test.txt"
            Dim dlg As New FolderBrowserDialog()
    
            If dlg.ShowDialog() = DialogResult.OK Then
                Dim path As String = dlg.SelectedPath
    
                My.Computer.FileSystem.CopyFile(sourcepath & source, path & "\" & source, True)
            End If

    Bien à vous.


    ZGuideTV.NET - administrator/developer


    lundi 9 novembre 2015 22:29
  • Bonsoir

    MErci pour votre aide, je regarde sa de suite.


    .::ZeroC00L::.

    mardi 10 novembre 2015 16:33