Discussion :

[guillaumeIA]

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,

[The_badger_man]

Tu n'as pas le droit d'écrire dans les répertoires système de Windows. Il faut lancer ton appli en mode admin pour cela.

[guillaumeIA]

J'ai modifié les parametres du compte cela semble fonctionner
merci

edit 1 : par contre une autre erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
public Tcclientsync
 
tcclientsync= createobject("TCSCRIPT.TcScriptSync")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim cpt=Tcclientsync.readvar(".cpt")'cette ligne ne fonctionne plus!