CC24
Messages postés10Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention12 juin 2003
-
24 janv. 2003 à 15:57
zelze
Messages postés234Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention30 juillet 2008
-
24 janv. 2003 à 16:10
bonjour à tous,
je développe actuellement un script qui me permettrait de copier des dossiers d'un cd-rom vers un dossier du bureau.
lorsque je lance l'application la première fois, il n'y a pas de problème, il me copie bien le dossier dans le dossier du bureau. par contre, la deuxième fois, il refuse d'écraser le dossier. je ne comprends pas car lorsque je fais la même chose pour un dossier stocké sur le lecteur de disquettes, il y a pas de problème. est-ce que quelqu'un pourrait m'expliquer ? merci.
voici mon code :
Dim fso, msg, fldr,f, s,fldr2, msg2
'dossier du bureau
fldr = "c:\windows\bureau\monDossier"
Set fso = CreateObject("Scripting.FileSystemObject")
'test sur l'existence du dossier du bureau
If (fso.FolderExists(fldr)) Then
msg = fldr & " existe déjà."
Else
'création du dossier du bureau s'il n'existe pas
msg = fldr & " n'existe pas." & vblf & "Création du dossier."
Set f = fso.CreateFolder(fldr)
CreateFolderDemo = f.Path
End If
msgbox msg
fldr2 = "c:\windows\bureau\dossier\dossierCD"
if (fso.FolderExists(fldr2))Then
msg2 = fldr2 & " existe déjà."
msgbox msg2
end if
'copie du dossier du cdrom dans le dossier du bureau
fso.copyfolder "e:\dossierCD",fldr &"",true
zelze
Messages postés234Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention30 juillet 2008 24 janv. 2003 à 16:10
je n'ai pas de solucion pour ce probleme mais ce que tu peut
faire ces renommer le nouveau dossier (par exemple si truc
existe deja créé truc2 c'est pas très difficile)