Discussion :

[quentingsc]

Bonjour a tous, voila j'ai une petit problème qui est surtout dû a mon manque d'expérience en vb et aussi a une petit manque de reflexion.

Je vous explique je veux lister un dossier dans une listview.jusqu'a la tout va bien.
a l'interieur de mon dossier j'ai des fichiers sans extention et j'ai des fichiers avec l'extention .sms et l'extention .sav.
Je voudrai qu'on me donne un petit coup de main car moi je veux lister simplement les fichiers sans extention .

je vous donne mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim tablo() As String
Dim n As Integer
Dim tt() As String
s = Dir("C:\windows\Temp trinity\SAV\TEMP\", vbDirectory)
n = 0
While s <> ""
If s <> "." And s <> ".." Then
n = n + 1
ReDim Preserve tablo(n)
tablo(n) = s
Set ObjListe = Form1.ListView5.ListItems.Add(, , s)
End If
s = Dir
Wend

Je pense que le but du jeu serai d'analysé la variable "s" a chaque fois et de voir si les 4 derniers caractères sont ".sms" ou ".sav" voila je suis perdu la dessus!!!
Je compte sur votre bonne volonté pour m'aider et sur votre experience.

Merci d'avances Messieurs ou Mesdames.

[pc75]

Bonjour,

Si tu testes la présence d'un point dans le nom de tes fichiers, ça doit pouvoir le faire, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if InStr(MonFichier, ".") = 0 then
.....

[SfJ5Rpw8]

modifie la ligne , avec le filtre *.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
s = Dir("C:\windows\Temp trinity\SAV\TEMP\*.")

sinon pour le traitement des chaînes de caractéres tu as InStr

[quentingsc]

merci les mecs je test ca dessuite

[quentingsc]

ca marche nikel pour la 2eme méthode.
cool merci bien moi qu'allait me prendre la tete a faire des boucles de test.
merci bien
bonne journée