Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour,J'essaie de copier un fichier et je reçois systématiquement l'erreur"Exception de HRESULT : 0x800A0046 (CTL_E_PERMISSIONDENIED)."Je suis administrateur, et aucune restriction n'existe sur le fichierconcerné.Voici le code VB que j'utilise:Dim fso = CreateObject("Scripting.FileSystemObject")TraitFichiers = False' positionnement des fichiers sur SIMEL21' Fichiers attachés en premierDim NB_trans As Integer = 0For i As Integer = 0 To attach.GetLowerBound(0)If attach(i) <> "" ThenDim temp_name As String = attach(i).Substring(3)Dim f1 = fso.getfile(temp_name)Err.Clear()On Error Resume Nextfso.Copyfile(temp_name, "simel21traficdep" +Path.GetFileName(temp_name))If Err.Number <> 0 ThenConsole.WriteLine("copy " + temp_name + " vers " +"simel21traficdep" + Path.GetFileName(temp_name) + " KO")Console.WriteLine("err=" + Str(Err.Number) + ";" +Err.Description)ElseNB_trans = NB_trans + 1Console.WriteLine("copy " + temp_name + " vers " +"simel21traficdep" + Path.GetFileName(temp_name) + " OK")End IfEnd IfNext iQuelqu'un a-t-il déja rencontré cette erreur?--Homb
Bonjour, J'essaie de copier un fichier et je reçois systématiquement l'erreur "Exception de HRESULT : 0x800A0046 (CTL_E_PERMISSIONDENIED)." Je suis administrateur, et aucune restriction n'existe sur le fichier concerné. Voici le code VB que j'utilise: Dim fso = CreateObject("Scripting.FileSystemObject") TraitFichiers = False ' positionnement des fichiers sur SIMEL21 ' Fichiers attachés en premier Dim NB_trans As Integer = 0 For i As Integer = 0 To attach.GetLowerBound(0) If attach(i) <> "" Then Dim temp_name As String = attach(i).Substring(3) Dim f1 = fso.getfile(temp_name) Err.Clear() On Error Resume Next fso.Copyfile(temp_name, "\simel21traficdep" + Path.GetFileName(temp_name)) If Err.Number <> 0 Then Console.WriteLine("copy " + temp_name + " vers " + "\simel21traficdep" + Path.GetFileName(temp_name) + " KO") Console.WriteLine("err=" + Str(Err.Number) + ";" + Err.Description) Else NB_trans = NB_trans + 1 Console.WriteLine("copy " + temp_name + " vers " + "\simel21traficdep" + Path.GetFileName(temp_name) + " OK") End If End If Next i Quelqu'un a-t-il déja rencontré cette erreur? -- Homb