Copier un dossier si il n' existe pas
mitch444
Messages postés
6
Statut
Membre
-
mitch444 Messages postés 6 Statut Membre -
mitch444 Messages postés 6 Statut Membre -
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")
3 réponses
-
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
-
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+
-
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à.
