Bonjour
dans le code suivant :
Sub masub()
Dim fs
Dim datedesauvegarde
datedesauvegarde =3D Format(Date, "yymmdd")
Set fs =3D Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "A:", "c:/" & datedesauvegarde & "\"
Set fs =3D Nothing
End Sub
j'ai l'erreur 427 :
Error 427 sur la ligne createobject : un objet est requis.
Voulez-vous m'aider =E0 trouver l'erreur et me donner ce que=20
je dois mettre ?
Merci d'avance.
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
Cédric JANDALI
"big" a écrit dans le message de news: 8cfc01c4047e$48600820$ Bonjour dans le code suivant : Sub masub() Dim fs Dim datedesauvegarde datedesauvegarde = Format(Date, "yymmdd") Set fs = Server.CreateObject("Scripting.FileSystemObject") fs.CopyFolder "A:", "c:/" & datedesauvegarde & "" Set fs = Nothing
End Sub j'ai l'erreur 427 : Error 427 sur la ligne createobject : un objet est requis. Voulez-vous m'aider à trouver l'erreur et me donner ce que je dois mettre ? Merci d'avance.
====================================== A quoi correspond "Server" ? voici la ligne directement copiée/collée des MSDN : Set fs = CreateObject("Scripting.FileSystemObject")
CeD
"big" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
8cfc01c4047e$48600820$a101280a@phx.gbl...
Bonjour
dans le code suivant :
Sub masub()
Dim fs
Dim datedesauvegarde
datedesauvegarde = Format(Date, "yymmdd")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "A:", "c:/" & datedesauvegarde & ""
Set fs = Nothing
End Sub
j'ai l'erreur 427 :
Error 427 sur la ligne createobject : un objet est requis.
Voulez-vous m'aider à trouver l'erreur et me donner ce que
je dois mettre ?
Merci d'avance.
====================================== A quoi correspond "Server" ?
voici la ligne directement copiée/collée des MSDN :
Set fs = CreateObject("Scripting.FileSystemObject")
"big" a écrit dans le message de news: 8cfc01c4047e$48600820$ Bonjour dans le code suivant : Sub masub() Dim fs Dim datedesauvegarde datedesauvegarde = Format(Date, "yymmdd") Set fs = Server.CreateObject("Scripting.FileSystemObject") fs.CopyFolder "A:", "c:/" & datedesauvegarde & "" Set fs = Nothing
End Sub j'ai l'erreur 427 : Error 427 sur la ligne createobject : un objet est requis. Voulez-vous m'aider à trouver l'erreur et me donner ce que je dois mettre ? Merci d'avance.
====================================== A quoi correspond "Server" ? voici la ligne directement copiée/collée des MSDN : Set fs = CreateObject("Scripting.FileSystemObject")
CeD
ng
Salut,
Oui ca doit venir de Server, de plus si ce code est du VB (et non du VBS), il faut typer tes variables et ABSOLUMENT eviter le FSO, préfère donc l'utilisation des fonctions implantées à VB, ici FileCopy.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Cédric JANDALI <jandali@[No S p A AAm]fr.fm> a écrit :
"big" a écrit dans le message de news: 8cfc01c4047e$48600820$ Bonjour dans le code suivant : Sub masub() Dim fs Dim datedesauvegarde datedesauvegarde = Format(Date, "yymmdd") Set fs = Server.CreateObject("Scripting.FileSystemObject") fs.CopyFolder "A:", "c:/" & datedesauvegarde & "" Set fs = Nothing
End Sub j'ai l'erreur 427 : Error 427 sur la ligne createobject : un objet est requis. Voulez-vous m'aider à trouver l'erreur et me donner ce que je dois mettre ? Merci d'avance.
====================================== > A quoi correspond "Server" ? voici la ligne directement copiée/collée des MSDN : Set fs = CreateObject("Scripting.FileSystemObject")
CeD
Salut,
Oui ca doit venir de Server, de plus si ce code est du VB (et non du VBS),
il faut typer tes variables et ABSOLUMENT eviter le FSO, préfère donc
l'utilisation des fonctions implantées à VB, ici FileCopy.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Cédric JANDALI <jandali@[No S p A AAm]fr.fm> a écrit :
"big" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 8cfc01c4047e$48600820$a101280a@phx.gbl...
Bonjour
dans le code suivant :
Sub masub()
Dim fs
Dim datedesauvegarde
datedesauvegarde = Format(Date, "yymmdd")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "A:", "c:/" & datedesauvegarde & ""
Set fs = Nothing
End Sub
j'ai l'erreur 427 :
Error 427 sur la ligne createobject : un objet est requis.
Voulez-vous m'aider à trouver l'erreur et me donner ce que
je dois mettre ?
Merci d'avance.
====================================== > A quoi correspond "Server" ?
voici la ligne directement copiée/collée des MSDN :
Set fs = CreateObject("Scripting.FileSystemObject")
Oui ca doit venir de Server, de plus si ce code est du VB (et non du VBS), il faut typer tes variables et ABSOLUMENT eviter le FSO, préfère donc l'utilisation des fonctions implantées à VB, ici FileCopy.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Cédric JANDALI <jandali@[No S p A AAm]fr.fm> a écrit :
"big" a écrit dans le message de news: 8cfc01c4047e$48600820$ Bonjour dans le code suivant : Sub masub() Dim fs Dim datedesauvegarde datedesauvegarde = Format(Date, "yymmdd") Set fs = Server.CreateObject("Scripting.FileSystemObject") fs.CopyFolder "A:", "c:/" & datedesauvegarde & "" Set fs = Nothing
End Sub j'ai l'erreur 427 : Error 427 sur la ligne createobject : un objet est requis. Voulez-vous m'aider à trouver l'erreur et me donner ce que je dois mettre ? Merci d'avance.
====================================== > A quoi correspond "Server" ? voici la ligne directement copiée/collée des MSDN : Set fs = CreateObject("Scripting.FileSystemObject")