Discussion :

[mcmahon]

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

[SfJ5Rpw8]

Comment tester l'existence d'un répertoire ?

Comment copier un répertoire et son contenu ?

[mcmahon]

je suis arrive a cela, c'est satisfaisant mais j'aimerai mettre une condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder "C:\Users\mahon\Pictures","C:\Users\mahon\Videos"

il me manque une condition si le dossier existe ne rien faire,si il n'existe pas le copier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
 " & oFSO.FolderExists("Z:\synchro")
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder "C:\local D\AntiWPA","Z:\"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("Z:\synchro")

[pitchalov]

ouais un If en VBS quoi. Pour exemple donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FolderExists("dossier source") Then
  objFso .CopyFolder "dossier source","dossier destination"
Else
  MsgBox "source introuvable"
End If

[mcmahon]

j'ai essayé sa mais cela ne fonctionne pas, l'instruction doit être transparente donc j'ai enlever msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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")

[ProgElecT]

j'ai essayé sa mais cela ne fonctionne pas, l'instruction doit être transparente donc j'ai enlever msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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")

Sans relire toute la discussion cela doit ressembler a çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim oFSO
Dim oFld '<= à moins que cela soit déclaré ailleurs
 
Set oFSO = CreateObject("Scripting.FileSystemObject") '< 1 seul fois suffit
 
If oFSO.FolderExists("Z:\synchro") = False Then
    Set oFld = oFSO.CreateFolder("Z:\synchro")
End If
 
If oFSO.FolderExists("Z:\AntiWPA") = True Then
    oFSO.CopyFolder "C:\local D\AntiWPA", "Z:\"
End If

[mcmahon]

voila mon code final j'ai juste un dernier problème c'est qui ne me copie pas le dernier dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "Z:", "\\2008serv\" & wshNetwork.UserName
 
 
wshNetwork.MapNetworkDrive "Y:", "\\2008serv\public"
 
 
 
Dim oFSO
Dim oFld '<= à moins que cela soit déclaré ailleurs
 
Set oFSO = CreateObject("Scripting.FileSystemObject") '< 1 seul fois suffit
 
If oFSO.FolderExists("Z:\synchro") = False Then
    Set oFld = oFSO.CreateFolder("Z:\synchro")
End If
 
If oFSO.FolderExists("C:\SyncBack") = False Then
    oFSO.CopyFolder "\\2008SERV\SyncBack","c:\syncback"
End If

[ProgElecT]

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:

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.

Bonne chance.

[mcmahon]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
oFSO.FolderExists("C:\SyncBack") = False Then
oFSO.CopyFolder "\\2008SERV\SyncBack","c:"

je suis un peut perdu.

[l_autodidacte]

Essaie ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option 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
   Else 
     If  Msgbox("Le dossier existe déjà, L'écraser ?",VbYesNo,"Copie et remplacement")=VbYes then
         Fd.Copy destFold,true
     Else
         MsgBox "Le dossier " & destFold & "SyncBack n'a pas été remplacé"
     End If
   End If
 End if

Je l'ai testé sur mon réseau domestique et cela marche impec.
Il devrait marcher pour toi aussi.

[mcmahon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option 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
End If
End If

[l_autodidacte]

mais le dossier n'est pas copier

Mais avec ces modifications, il n'y aura jamais de copie car tu as supprimé l'instruction de copie(en rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option 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

[mcmahon]

voici mon code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "Z:", "\\2008serv\" & wshNetwork.UserName
 
 
wshNetwork.MapNetworkDrive "Y:", "\\2008serv\public"
 
Option Explicit
 
Dim oFSO,Fd,DestFold,SrcFold
srcFold="\\2008serv\SyncBack\syncback"
DestFold="C:\local D"
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

le problème c 'est que la copie ne ce lance pas

mais quand je lance juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Dim oFSO,Fd,DestFold,SrcFold
srcFold="\\2008serv\SyncBack\syncback"
DestFold="C:\local D"
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

[/CODE] cela fonctionne

voici l'erreur

[mcmahon]

bonjour, j'ai enfin réussi voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
wshNetwork.MapNetworkDrive "Z:", "\\2008serv\" & wshNetwork.UserName
wshNetwork.MapNetworkDrive "Y:", "\\2008serv\public"
 
Dim oFSO,Fd,DestFold,SrcFold
srcFold="\\2008serv\SyncBack\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

je vous remercie de l'aide que vous m'avez apportés.