Version imprimable
Bonjours,
Je sollicite encore une fois votre aide pour la création d'un programme en vbs.
Voila je m'explique, 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.
merci
je suis arrive a cela, c'est satisfaisant mais j'aimerai mettre une condition
il me manque une condition si le dossier existe ne rien faire,si il n'existe pas le copier.Code:
2
3
Code:
2
3
4
5
6
7
8
9
10
ouais un If en VBS quoi. Pour exemple donc :
Code:
2
3
4
5
6
7
j'ai essayé sa mais cela ne fonctionne pas, l'instruction doit être transparente donc j'ai enlever msgbox
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sans relire toute la discussion cela doit ressembler a çàCitation:
Envoyé par mcmahon
Code:
2
3
4
5
6
7
8
9
10
11
12
voila mon code final j'ai juste un dernier problème c'est qui ne me copie pas le dernier dossier
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Où trouver l'aide en ligne pour VBScript ?
Une fois installé sur ton ordinateur, lancer Script56.CHM, dans l'onglet Index, mettre le mot CopyFolder , preter attention a la partie suivant:
Bonne chance.Citation:
Sinon, destination est considéré comme le nom d'un dossier à créer. Dans tous les cas, quatre événements peuvent se produire lors de la copie d'un dossier individuel.
bonjour, je n'arrive toujours pas a copier mon dossier
le dossier syncback et partagé est il se trouve sur un serveur, 2008SERV
il doit le copier sur la partition c:
je suis un peut perdu.Code:
2
3
4
5
Essaie ceJe l'ai testé sur mon réseau domestique et cela marche impec.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Il devrait marcher pour toi aussi.
merci de ton aide j'ai supprimer la msg box car cela doit être invisible pour les utilisateur du domaine. quand je l exécute il n y a pas d'erreur mais le dossier n'est pas copier
Code:
2
3
4
5
6
7
8
9
10
11
Mais avec ces modifications, il n'y aura jamais de copie car tu as supprimé l'instruction de copie(en rouge)Citation:
mais le dossier n'est pas copier
Code:
2
3
4
5
6
7
8
9
10
11
12Option Explicit Dim oFSO,Fd,DestFold,SrcFold srcFold="\\2008SERV\SyncBack" DestFold="C:\" Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FolderExists(srcFold) Then set fd=oFSO.getfolder(srcFold) If not oFSO.FolderExists(destFold & "SyncBack") then Fd.Copy destFold End If End If
voici mon code completle problème c 'est que la copie ne ce lance pasCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
mais quand je lance juste
[/CODE] cela fonctionneCode:
2
3
4
5
6
7
8
9
10
11
12
13
voici l'erreur
http://www.mirari.fr/gzlr
bonjour, j'ai enfin réussi voici le codeje vous remercie de l'aide que vous m'avez apportés.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16