IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Sript vbs pour copier un dossier


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2010
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2010
    Messages : 19
    Par défaut Sript vbs pour copier un dossier
    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

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2010
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2010
    Messages : 19
    Par défaut
    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")

  4. #4
    Membre chevronné Avatar de pitchalov
    Homme Profil pro
    Inscrit en
    Avril 2007
    Messages
    340
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 340
    Par défaut
    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

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2010
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2010
    Messages : 19
    Par défaut condition de ccréation de dossier
    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")

  6. #6
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    Citation Envoyé par mcmahon Voir le message
    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
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. Ligne de commande pour copier un dossier via SSH
    Par Daikyo dans le forum Administration système
    Réponses: 4
    Dernier message: 29/09/2009, 22h21
  2. Meilleur code pour copier un dossier
    Par ILP dans le forum API, COM et SDKs
    Réponses: 1
    Dernier message: 21/07/2009, 11h00
  3. Fonction pour copier un dossier et son contenu
    Par wassimbik dans le forum Langage
    Réponses: 2
    Dernier message: 15/04/2009, 11h28
  4. macro pour copier un fichier excel dans un dossier
    Par mery13 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/03/2009, 13h36
  5. Script VBS pour copier "Mes documents"
    Par DiabloZizi dans le forum Windows
    Réponses: 1
    Dernier message: 06/03/2006, 22h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo