Vbscript : copie de dossiers à partir de cd-rom

CC24 Messages postés 10 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 12 juin 2003 - 24 janv. 2003 à 15:57
zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 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

1 réponse

zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 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)
0
Rejoignez-nous