1. #1
    Futur Membre du Club
    Femme Profil pro
    bordeaux
    Inscrit en
    avril 2017
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 32
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : bordeaux
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : avril 2017
    Messages : 7
    Points : 6
    Points
    6

    Par défaut Changement de variable

    Bonjour,

    Je suis nouvelle sur le forum et nouvelle dans le VBS. J'essaie donc d'apprendre les bases et je m'inspire beaucoup du forum pour répondre à mes questions mais là je suis bloqué.

    Je vous montre le script et j'explique mon problème:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Dim fso, fileWriter
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileWriter = fso.createTextFile('chemin')
     
    Sub ListDirectory(objFolder)
      For Each objFile In  objFolder.Files
        fileWriter.WriteLine objFile.name
    	'------ Mon action -----
      Next
    End Sub
     
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objMyFolder = objFso.GetFolder ('------ chemin, à changer une fois que Mon action est terminée -----')
    ListDirectory objMyFolder
    'Mon action' (qui est simplement écrire dans un fichier texte) travaille dans le dossier, dont le chemin est définit par Set objMyFolder, mais une fois qu'elle est terminée je souhaite qu'elle recommence à partir d'un autre dossier (Pas les sous dossiers mais bien un chemin différent). Quel code écrire pour que ce chemin se modifie automatiquement à la fin de 'l'action' pour recommencer à partir de ce nouveau dossier ?

    Merci de votre aide, étant débutant cela me parait difficile...

  2. #2
    Membre actif
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    novembre 2011
    Messages
    142
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : novembre 2011
    Messages : 142
    Points : 254
    Points
    254

    Par défaut

    Bonjour Marion33,

    J'espère avoir compris ton besoin ...
    Voici la solution que je te propose :

    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
    Dim fso, fileWriter
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileWriter = fso.createTextFile("fichier.log")
     
    Lst_Folders = "chemin1;chemin2" ';chemin3;chemin4;chemin5 ...
    Name_Folders = Split(Lst_Folders,";")
     
    For i = 0 to ubound(Name_Folders)
    Set objMyFolder = fso.GetFolder(Name_Folders(i))
     
    	For Each objFile In objMyFolder.Files
    	fileWriter.WriteLine objFile.name
    	'ton action
    	Next
     
    Next
    ++

  3. #3
    Membre expérimenté
    Homme Profil pro
    Responsable déploiement
    Inscrit en
    juillet 2014
    Messages
    808
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement

    Informations forums :
    Inscription : juillet 2014
    Messages : 808
    Points : 1 422
    Points
    1 422

    Par défaut

    En voici une autre. Attention il n'y a pas de vérification d'erreur (chemin introuvable ...)

    Code vbscript : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objFileWriter = objFso.CreateTextFile("CheminFichier")
     
    Sub ListDirectory(FolderPath)
      For Each objFile In objFso.GetFolder(FolderPath).Files
        objFileWriter.WriteLine objFile.name
      Next
    End Sub
     
    ListDirectory "CheminDossier 1"
    ListDirectory "CheminDossier 2"
     
    objFileWriter.Close

  4. #4
    Futur Membre du Club
    Femme Profil pro
    bordeaux
    Inscrit en
    avril 2017
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 32
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : bordeaux
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : avril 2017
    Messages : 7
    Points : 6
    Points
    6

    Par défaut

    Merci beaucoup, cela fonctionne à merveille !
    Bonne soirée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Changement de variable de session onClick
    Par milach dans le forum Sessions
    Réponses: 2
    Dernier message: 27/08/2007, 16h04
  2. Traduction d'un outil (changement de variable)
    Par new-dmx dans le forum Fichiers
    Réponses: 9
    Dernier message: 12/07/2007, 09h54
  3. Réponses: 20
    Dernier message: 12/06/2007, 10h11
  4. [VBA-E]Comment lancer une procedure lors d'un changement de variable ?
    Par RogerLapin dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 29/03/2007, 09h56
  5. Changement de variable
    Par Pchiter dans le forum JavaScript
    Réponses: 4
    Dernier message: 23/08/2005, 14h26

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