cs_barada
Messages postés54Date d'inscriptionvendredi 26 mars 2004StatutMembreDernière intervention13 août 2015
-
10 sept. 2009 à 18:40
cs_barada
Messages postés54Date d'inscriptionvendredi 26 mars 2004StatutMembreDernière intervention13 août 2015
-
11 sept. 2009 à 09:26
Bonjour le forum
J' ai recupéré ce code sur le net et il permet de cree des reêrtoires de maniere recursives. J' ai essayé de faire une modif afin qu' il cree l' ensemble des des repertoires sous le premier crée, mais j' ai echoué. Ci joint le code
Public objFSO
Sub Main()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call GeneratePath("C:\test\test1`test2\test3\test4")
End Sub
' ---------------------------------------------------------------------
'* @info Generate a folder tree from the path
'*
'* @param (String) Path
'* @return (Boolean) Folder Exists: Recursion continues (Y/N)
' ---------------------------------------------------------------------
Function GeneratePath(pFolderPath)
GeneratePath = False
If Not objFSO.FolderExists(pFolderPath) Then
If GeneratePath(objFSO.GetParentFolderName(pFolderPath)) Then
GeneratePath = True
Call objFSO.CreateFolder(pFolderPath)
End If
Else
GeneratePath = True
End If
End Function
Merci d' avance pour toute aide pour la modif, n' y aurait il pas moyen de le faire lire un fichier txt rempli de l' ensemble des repertoires
cs_barada
Messages postés54Date d'inscriptionvendredi 26 mars 2004StatutMembreDernière intervention13 août 2015 11 sept. 2009 à 08:48
Bonjour Jean Marc et le forum
Merci pour ta réponse rapide, le script est ok, mais mon pb c' est de placer les répertoires en arbre exmple au premmier niveau le reperoire test et à l' interieur les autres
niveau 0 test
niveau 1 test1
niveau 1 test2
Etant donné que les lecteurs peuvent varié, y a t-il une possibilité de d' avaoir un fichier texte avec le noms des répertoires.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 11 sept. 2009 à 09:16
Bonjour,
Pour lister l'arborescence:
Option Explicit
Dim objFso, objRootFolder
Dim strRootPath, strSubFolder, strResult
Set objFso = CreateObject("Scripting.FileSystemObject")
strRootPath = "f:\SCRIPTS"
Set objRootFolder = objFso.GetFolder(strRootPath)
Call SearchFolders(objRootFolder)
MsgBox strResult
Set objRootFolder = Nothing
Set objFso = Nothing
Sub SearchFolders(ArgFolder)
For Each strSubFolder In ArgFolder.SubFolders
On Error Resume Next ' permission
Call SelectFolder(strSubfolder)
Call SearchFolders(strSubfolder)
Next
End Sub
Sub SelectFolder(ArgFolder)
strResult = strResult &vbCr& ArgFolder
End Sub
cs_barada
Messages postés54Date d'inscriptionvendredi 26 mars 2004StatutMembreDernière intervention13 août 2015 11 sept. 2009 à 09:26
Bonjour Jean Marc et le forum
merci pour ta réponse, le script de listage d'a arborescence me servira, mais la demande du fichier texte porté sur la création des répertoires. Dans ce fichier texte je rentrerai les répertoires, au lieu de le mettre dans
strPath = "C:\test\test1`test2\test3\test4"
Comment faire pour avoir les répertoires positionné de cette maniere
niveau 0 test
niveau 1 test1
niveau 1 test2