Petite moulinette...
Ben0ist
Messages postés
1
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
17 mai 2006
-
17 mai 2006 à 09:48
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 17 mai 2006 à 18:55
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 17 mai 2006 à 18:55
2 réponses
cs_eldim
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
17 mai 2006 à 10:33
17 mai 2006 à 10:33
Salut !
Windiff lol
Pardon...
vb.net : io.path.getfilenamewithoutextension(Fichier)
-- Pourquoi faire simple quand on peut faire compliquer --
Windiff lol
Pardon...
vb.net : io.path.getfilenamewithoutextension(Fichier)
-- Pourquoi faire simple quand on peut faire compliquer --
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
17 mai 2006 à 18:55
17 mai 2006 à 18:55
Sauf qu'ici on est dans une rubrique VB6 ! Pas vb.NET !
Donc, je propsoe en VB6 ...
Dim TA() as string, ia as long
Dim Fic As String, i as long
Dim
ia = -1
Fic = Dir("c:\a\*.xxx")
While Fic <> ""
i = instr(Fic,".")
ia = ia+1
Redim Preserve TA(ia)
TA(ia) = Left$(Fic,i-1)
Fic = Dir
Wend
For i = 0 to UBound(TA)
If Dir("c:\B" & TA(i) & ".yyy") = "" Then Debug.Print "fichier " & TA(i) & ".yyy manquant dans le dossier c:\B"
Next
Pas testé mais devrais être OK
CR
Donc, je propsoe en VB6 ...
Dim TA() as string, ia as long
Dim Fic As String, i as long
Dim
ia = -1
Fic = Dir("c:\a\*.xxx")
While Fic <> ""
i = instr(Fic,".")
ia = ia+1
Redim Preserve TA(ia)
TA(ia) = Left$(Fic,i-1)
Fic = Dir
Wend
For i = 0 to UBound(TA)
If Dir("c:\B" & TA(i) & ".yyy") = "" Then Debug.Print "fichier " & TA(i) & ".yyy manquant dans le dossier c:\B"
Next
Pas testé mais devrais être OK
CR
