Création de repertoire
Remixgame
Messages postés
56
Date d'inscription
mardi 12 février 2002
Statut
Membre
Dernière intervention
2 août 2007
-
31 juil. 2002 à 22:43
TeKiT Messages postés 39 Date d'inscription jeudi 26 octobre 2000 Statut Membre Dernière intervention 9 août 2002 - 1 août 2002 à 13:57
TeKiT Messages postés 39 Date d'inscription jeudi 26 octobre 2000 Statut Membre Dernière intervention 9 août 2002 - 1 août 2002 à 13:57
2 réponses
TeKiT
Messages postés
39
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
9 août 2002
1 août 2002 à 13:46
1 août 2002 à 13:46
La chose a faire est de tester l'ouverture de chaque répertoire .. Si impossible => créer sinon répertoire suivant
---------------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.
Option Explicit
Const Chaine="c:\temp\titi\tata\toto.txt"
Dim FSO,foldPt
Dim i,debut
Dim Repertoires 'tableau contenant les valeurs de tes textbox
Repertoires=Split(chaine,"")
Set FSO = CreateObject("Scripting.FileSystemObject")
debut=Repertoires(0) 'debut = lecteur (icic c:)
On Error Resume Next
For i=1 To UBound(Repertoires)-1
debut=debut&""&Repertoires(i)
set foldPt = FSO.GetFolder(debut)
If Err.Number<>0 Then
'Creation du repertoire qui n'existe pas
FSO.CreateFolder(debut)
Err.Clear
If Err.Number<>0 Then
'Creation du repertoire impossible
WScript.Echo "Error = Creation du repertoire "&debut&" a echoue"
End If
End If
Next
'Creation par ecrasement du fichier
call FSO.CreateTextFile(Chaine,True)
---------------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.
TeKiT
Messages postés
39
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
9 août 2002
1 août 2002 à 13:57
1 août 2002 à 13:57
Oups j'ai ripé il faut inverser les deux lignes
FSO.CreateFolder(debut)
Err.Clear
=>
Err.Clear
FSO.CreateFolder(debut)
Sinon pas possible de détecter l'erreur lors de la création du repertoire
--------------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.
FSO.CreateFolder(debut)
Err.Clear
=>
Err.Clear
FSO.CreateFolder(debut)
Sinon pas possible de détecter l'erreur lors de la création du repertoire
--------------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.
