bonjour, j'ai un programme sur Xp qui fonctionne le voici :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub copiefile(ByVal resources As String, ByVal destination As String)
        Dim fss As Object
        '/////// A FAIRE //////////
        If System.IO.Directory.Exists(destination) = True Then
            fss = CreateObject("Scripting.FileSystemObject")
            fss.CopyFile(resources, destination)  ' erreur sur cette ligne
        Else
            MsgBox("Directorie not found : " & destination, MsgBoxStyle.OkOnly, "Copy file problem")
        End If

    End Sub
et voici ce que je rentre dans la fonction ci dessus :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Dim pathdll As String = PageParam.hb_avant_str(My.Application.Info.DirectoryPath, "bin") & "bnTasks.dll"
        Dim windir As String = ""
        Dim path As String
 
        windir = Environment.GetEnvironmentVariable("windir").ToString
        Accueil.copiefile(pathdll, windir & "\system32\")
je viens de recevoir un nouveau pc avec vista 32 bit j'ai installé la version gratuite VB express je compile mon programme dessus et j'obtiens une erreur :
Exception hRESULT: 0x800a0046(CTL_E_permission denied)
pouvez vous m aider?
cordialement,