copier un dossier si il n' existe pas

Question

Bonjour, il faut que je crée un script qui lors de la connexion d'un utilisateur copie un fichier présent sur le serveur vers son dossier programmes. Et qu'il puisse vérifier si le fichier existe il ne le copie pas sinon il le copie. je suis bloqué 


Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
if " & oFSO.FolderExists("Z:\synchro")then
 
else 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
if " & oFSO.FolderExists("Z:\AntiWPA")then
 
else 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder "C:\local D\AntiWPA","Z:\"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("Z:\synchro")
 

Configuration: Windows 7 / Firefox 3.6.8

varfendell · Answer

essaye d'ouvrir le fichier sur l'ordi client.....si l'ouverture echoue, c'est que le fichier n'est pas present et donc tu peut le copier, si l'ouverture reussi c'est que le fichier est deja present et tu n'as pas besoin de le recopier

lermite222 · Answer

Bonjour,
Quel language employé ? parce que ça...
if " & oFSO.FolderExists("Z:\AntiWPA")then
Je comprend pas
Et pour savoir si existe tu peu aussi employer dir
Ex:
 if Dir("C:\répertoir\Fichier.ext")="" then
   ' Existe pas
End if

A+

mitch444 · Answer

je l'ai tester le problème c'est que je veux que le script s'exécute a chaque démarrage  qui vérifie  son existence si il existe il ne fait rien sinon il copie le dossier mais la il me signale qu'il ne peut créer car il existe déjà.

Copier un dossier si il n' existe pas

3 réponses

Votre réponse

Discussions similaires

Newsletters