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

  1. #1
    Futur Membre du Club
    Femme Profil pro
    Inscrit en
    octobre 2003
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2003
    Messages : 8
    Points : 8
    Points
    8

    Par défaut Créer un sous-répertoire dans un sous-répertoire de plusieurs répertoires

    Bonjour à tous,

    Le code vb de Luc1an0 m'a été très utile. Les 1300 répertoires ont désormais le sous-répertoire voulu (ref. http://www.developpez.net/forums/d10...s/#post6377905.

    Maintenant j'essaie de modifier ce code afin d'ajouter un sous-répertoire dans le premier sous-répertoire créer. Chose qui me semblait assez facile avec le code que j'avais mais certains répertoires ont été créés après que j'aie exécuté ce code vb donc ils ne contiennent pas le premier sous-répertoire.

    ex:
    K:\rep1\sousRep
    K:\rep2\sousRep
    K:\rep3\
    K:\rep4\sousRep
    K:\rep5\
    K:\rep6\sousRep

    Avec le code vb ci-dessus, lorsqu'il rencontre le répertoire qui ne contient pas le sous répertoire, il plante et affiche un message d'erreur puisqu'il ne trouve pas le sous-rep dans ce répertoire. Logique

    J'ai testé plusieurs modifications mais sans succès.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    strMonSousDossier = "\sousRep\sousRep2"
    strMonSousDossier2 = "\sousRep"
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    stRep = "K:\"
    If oFSO.FolderExists(stRep) Then
     For each oFld in  oFSO.GetFolder(stRep).SubFolders
    	If Not oFSO.FolderExists(strMonSousDossier2) Then
    		Wscript.Echo "Création du dossier : " & oFld.Path	& strMonSousDossier2 
    			oFSO.CreateFolder(oFld.Path	& strMonSousDossier2)
    	End If
    		Wscript.Echo "Création du dossier : " & oFld.Path	& strMonSousDossier 
    			oFSO.CreateFolder(oFld.Path	& strMonSousDossier)
     Next
    End If
    Mais il s'arrête directement au premier répertoire en affichant un problème à la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Wscript.Echo "Création du dossier : " & oFld.Path	& strMonSousDossier2 
    			oFSO.CreateFolder(oFld.Path	& strMonSousDossier2)
    alors qu'il ne devrait pas entrer dans ce IF puisque strMonSousDossier2 existe.

    L'idée est que si le strMonSousDossier2 existe de créer que strMonSousDossier et s'il n'existe pas de créer les deux. J'emploi sûrement mal le If Not.

    Merci de votre aide.

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    mai 2009
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : Algérie

    Informations forums :
    Inscription : mai 2009
    Messages : 44
    Points : 53
    Points
    53

    Par défaut

    L'erreur est comme tu le dis bien est dans la condition (ligne 7):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    ...
    ...
    ...
    ...
    ...
    ...
            If Not oFSO.FolderExists(oFld.Path & strMonSousDossier2) Then
    ...

  3. #3
    Futur Membre du Club
    Femme Profil pro
    Inscrit en
    octobre 2003
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2003
    Messages : 8
    Points : 8
    Points
    8

    Par défaut

    Bonjour iso81,

    Un grand merci,
    j'ai pu créer mes sous-répertoires avec ta correction.

    Pakou

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

Discussions similaires

  1. [XL-2013] Proposition de répertoire dans "Enregistrer Sous".
    Par DenisHen dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 13/05/2015, 11h09
  2. [Python 2.X] impossible de créer un projet Django dans eclipse (sous mac os)
    Par ejoinel dans le forum Django
    Réponses: 0
    Dernier message: 15/11/2014, 17h31
  3. Créer Dynamiquement un controle dans un sous Formulaire
    Par Nabil54 dans le forum VBA Access
    Réponses: 3
    Dernier message: 27/04/2013, 03h47
  4. [AC-2007] créer des sous catégories dans un sous formulaire
    Par damlimoges dans le forum IHM
    Réponses: 2
    Dernier message: 12/06/2009, 08h31
  5. Comment créer une URL Rewriting dans un sous-repertoire ?
    Par Alexandrebox dans le forum Apache
    Réponses: 1
    Dernier message: 26/03/2009, 20h44

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