Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Copie de fichier par copiefile du filesystemobject impossible

Copie de fichier par copiefile du filesystemobject impossible

1 réponse
Avatar
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, "\\simel21\trafic\dep\" +
Path.GetFileName(temp_name))

If Err.Number <> 0 Then

Console.WriteLine("copy " + temp_name + " vers " +
"\\simel21\trafic\dep\" + 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 " +
"\\simel21\trafic\dep\" + Path.GetFileName(temp_name) + " OK")

End If

End If

Next i


Quelqu'un a-t-il déja rencontré cette erreur?

--
Homb
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrice
Sur quelle ligne ? Vérifier aussi que les noms des fichiers sont corrects.

Comme c'est du .NET pourquoi ne pas utiliser System.IO ?

Cela pourrait être aussi des droits sur un partage (par exemple un partage
en lecture seule).

--
Patrice

"Homb" a écrit dans le message de
news:
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