Gambas France BETA


Pas de compte ? Incription

?GB3: A propos de RDir, retourner plusieurs Type de Fichier.

Ce sujet est résolu.

1
AuteurMessages
Reivillo#1 Posté le 8/2/2013 à 15:37:52
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour à Tous.

Dans ce Code:
1
2
3
4
5
6
7
8
9
10
11
' Affiche les images png contenus dans un répertoire et ses sous-répertoires

SUB AfficheRepertoire(Repertoire AS STRING)

DIM Fichier AS STRING

FOR EACH Fichier IN RDir(Repertoire, "*.png")
PRINT Fichier
NEXT

END

On ne récupère que les png.
Peut-on récupérer des jpg, et autres en plus,
dans la même ligne de Code.
J'ai essayé plusieurs syntaxes, sans succès.

Merci.
Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Foromus#2 Posté le 8/2/2013 à 21:50:25
Bonsoir tout le monde,

Et en faisant FOR EACH Fichier IN RDir(Repertoire, "*.*") ?

Bien sûr, là, on récupère tout, mais si le répertoire n'a que des images...

Mais il me semble qu'on peut mettre plusieurs paramètres, genre RDir(Repertoire, "*.png,*.jpg,*.bmp"). Il est possible aussi que le séparateur soit le point-virgule, plutôt que la virgule.
A vrai dire, je ne suis pas trop sûr de mon coup, et je suppose que vous avez déjà essayé...
Reivillo#3 Posté le 9/2/2013 à 09:08:46
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour Foromus.

On m'a enfin soufflé la syntaxe.

Voir ce Code:(De honte, j'ai effacé le précédent.)
1
2
3
4
5
6
7
8
PUBLIC sPathFileAudio AS String[]

PUBLIC SUB Form_Open()

sPathFileAudio = RDir(User.Home, "*.{ogg,mp3,Wav}")
PRINT sPathFileAudio.Count

END

@+.
Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
1