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