CREER UN CHEMIN DE PLUSIEURS DOSSIERS

VicoLaChips2

Messages postés: 436
Date d'inscription: dimanche 20 janvier 2002
Statut: Membre
Dernière intervention: 2 février 2010

- 22 févr. 2003 à 15:43
softeur

Messages postés: 6
Date d'inscription: mercredi 20 mars 2002
Statut: Membre
Dernière intervention: 30 mars 2011

- 28 févr. 2003 à 12:20

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6204-creer-un-chemin-de-plusieurs-dossiers

softeur

Messages postés: 6
Date d'inscription: mercredi 20 mars 2002
Statut: Membre
Dernière intervention: 30 mars 2011

28 févr. 2003 à 12:20

Merci Vico, et même bravo pour cette version sans 'on error resume next'. Il y a quand même une nuance c'est que 'split' n'existe pas sous VB5. @+ ;-)

VicoLaChips2

Messages postés: 436
Date d'inscription: dimanche 20 janvier 2002
Statut: Membre
Dernière intervention: 2 février 2010

2
22 févr. 2003 à 15:45

j'remet le kode...
Private Sub Command1_Click()

Dim sDossACreer() As String, sPath As String
Dim oFso As New Scripting.FileSystemObject
' ----
sDossACreer = Split("C:\TEMP\EXT\1\1\2\1\1", "")
sPath = sDossACreer(0) & ""

For i = 1 To UBound(sDossACreer)
If Not oFso.FolderExists(sPath & sDossACreer(i)) _
Then oFso.CreateFolder sPath & sDossACreer(i)

sPath = sPath & sDossACreer(i) & ""
Next

End Sub

Shop !!
@+

VicoLaChips2

Messages postés: 436
Date d'inscription: dimanche 20 janvier 2002
Statut: Membre
Dernière intervention: 2 février 2010

2
22 févr. 2003 à 15:43

Bonjour -;)
Pour moi : on error resume next c'est une façon de dire que même si ça marche pa ça marche !! un peu comme les mangeurs de pop korn en ce moment...
Vaudrait mieux écrire ça :

Private Sub Command1_Click()

Dim sDossACreer() As String, sPath As String
Dim oFso As New Scripting.FileSystemObject
' ----
sDossACreer = Split("C:TEMPEXT11211", "")
sPath = sDossACreer(0) & ""

For i = 1 To UBound(sDossACreer)
If Not oFso.FolderExists(sPath & sDossACreer(i)) _
Then oFso.CreateFolder sPath & sDossACreer(i)

sPath = sPath & sDossACreer(i) & ""
Next

End Sub

@+, VIC