Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Où est mon erreur ?

Où est mon erreur ?

2 réponses
Avatar
OnE
Bonjour,

De ces deux procédures, seule la première fonctionne, la seconde me
renvoit le message d'erreur 'Permission refusée'.

Sub deplacedossier()
lasource = "E:\boot98"
laDestination = "M:\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder lasource, laDestination
fso.deletefolder lasource
End Sub

Sub deplacedossier2()
lasource = "E:\boot98"
laDestination = "M:\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.movefolder lasource, laDestination
End Sub
Signaler un problème avec ce contenu

2 réponses

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
Georges MAUREL
Bonjour,
La réponse est dans l'aide pour movefolder :
"Remarque Cette méthode permet de déplacer des dossiers entre les volumes
uniquement si le système d'exploitation l'accepte"
Et à priori sous windows cela n'est pas permis

Cordialement
Georges


"OnE" a écrit dans le message de
news:
Bonjour,

De ces deux procédures, seule la première fonctionne, la seconde me
renvoit le message d'erreur 'Permission refusée'.

Sub deplacedossier()
lasource = "E:boot98"
laDestination = "M:"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder lasource, laDestination
fso.deletefolder lasource
End Sub

Sub deplacedossier2()
lasource = "E:boot98"
laDestination = "M:"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.movefolder lasource, laDestination
End Sub


Avatar
OnE
Merci beaucoup.

Bonjour,
La réponse est dans l'aide pour movefolder :
"Remarque Cette méthode permet de déplacer des dossiers entre les volumes
uniquement si le système d'exploitation l'accepte"
Et à priori sous windows cela n'est pas permis

Cordialement
Georges


"OnE" a écrit dans le message de
news:

Bonjour,

De ces deux procédures, seule la première fonctionne, la seconde me
renvoit le message d'erreur 'Permission refusée'.

Sub deplacedossier()
lasource = "E:boot98"
laDestination = "M:"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder lasource, laDestination
fso.deletefolder lasource
End Sub

Sub deplacedossier2()
lasource = "E:boot98"
laDestination = "M:"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.movefolder lasource, laDestination
End Sub