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
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
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
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" <OnE@discussions.microsoft.com> a écrit dans le message de
news:ulJFRy8dFHA.4040@TK2MSFTNGP14.phx.gbl...
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
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
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
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" <OnE@discussions.microsoft.com> a écrit dans le message de
news:ulJFRy8dFHA.4040@TK2MSFTNGP14.phx.gbl...
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
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