CRÉATION D'UN ARBORESSANCE
cs_sub-zero
Messages postés
98
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
12 juillet 2005
-
27 nov. 2002 à 17:05
JMC70 Messages postés 77 Date d'inscription samedi 9 novembre 2002 Statut Membre Dernière intervention 6 juillet 2014 - 12 janv. 2006 à 19:42
JMC70 Messages postés 77 Date d'inscription samedi 9 novembre 2002 Statut Membre Dernière intervention 6 juillet 2014 - 12 janv. 2006 à 19:42
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/5184-creation-d-un-arboressance
https://codes-sources.commentcamarche.net/source/5184-creation-d-un-arboressance
12 janv. 2006 à 19:42
Si quelqu'un a une solution...
28 nov. 2002 à 22:52
27 nov. 2002 à 21:01
Donc là où on voit un backslash il faut en voire deux, et quand on voit juste "" c'est qu'il y a un backslash entre guillemets.
Milles excuse, je connaissais pas ce bug.
En tout cas le code fonctionne un fois remis les backslash à leur place, je l'ai testé !
27 nov. 2002 à 20:56
Au lieu de Split(Path, "") il faut lire Split(Path, ""), évidemment...
27 nov. 2002 à 20:54
Private Sub Check_Directory(Path As String)
On Error GoTo Error
Dim oFso As New FileSystemObject
Dim vItem As Variant
Dim FullPath As String
If Not oFso.FolderExists(Path) Then
For Each vItem In Split(Path, "")
FullPath = Replace(FullPath & vItem & "", "", "")
If Not oFso.FolderExists(FullPath) Then
oFso.CreateFolder FullPath
End If
Next
End If
Exit Sub
Error:
MsgBox Err.Description
End Sub
27 nov. 2002 à 17:05
*Verification_Chemin=Trim$(Dir$(strChemin, vbDirectory)<>vbnullstring pour ta première fonction
*supprime les goto ds la 2nde et fait une boucle
voila @+