SEPARER LE NOM DU FICHIER DE SON CHEMIN SOUS ACCESS

-
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
-
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/2139-separer-le-nom-du-fichier-de-son-chemin-sous-access

Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Re,
A mon avis, il serait plus simple d'utiliser la fonction existante de VB: le FileListBox !
Si ton "dossier" représente un répertoire...
Avec sa, pas besoin de ligne de programmation !
Récupérer "Un choix" fonctionne comme un Listbox.
Sinon, le site propose surement des centaines d'exemples qui sauront certainement te satisfaire, Moi je ne suis qu'un petit débutant en VB et ne connais pas grand chose !
Messages postés
98
Date d'inscription
lundi 17 novembre 2008
Statut
Membre
Dernière intervention
4 septembre 2012

maintenant pour un autre program (un coffre-fort)
jai besoin de listé le contenu dun dossier du program dans un listbox

taurais un code pour sa Galactus13 ??

sa maiderais beaucoup.

merci davance :)
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Bjrs,
Heureux que mon exemple t'ai servi !
Une astuce existe pour récupérer le fichier seul:
MonFichier = Dir(CommonDialog1.Filename)
MonFichier ne contiendra que le nom du fichier s'il existe ! Ensuite le répertoire :
X = Len(CommondDialog1.Filename)
Y = len(MonFichier) + 1
MonRepertoire = Mid(CommondDialog1.Filename,1,X - Y)
(Ne pas oublier les déclarations...)
Messages postés
98
Date d'inscription
lundi 17 novembre 2008
Statut
Membre
Dernière intervention
4 septembre 2012

bon dacors laissé tombé je vien de trouvé, jai placé se code a la fin du code qui charge mon fichier mais jai du changé quelque truc:

On Error Resume Next
Dim I As Integer, SOSFichier As String
SOSFichier = OpenFileDialog1.FileName
For I = Len(OpenFileDialog1.FileName) To 1 Step -1
If Mid(OpenFileDialog1.FileName, I, 1) = "" Then Exit For
Next

OpenFileDialog1.FileName = Mid(SOSFichier, I + 1)

se qui donne comme code pour chargé mon ficier:

On Error GoTo D
OpenFileDialog1.Title = ""
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "musique, vidéo et image|*.*"
OpenFileDialog1.ShowDialog()

MediaPlayer.URL = OpenFileDialog1.FileName
On Error Resume Next
Dim I As Integer, SOSFichier As String
SOSFichier = OpenFileDialog1.FileName
For I = Len(OpenFileDialog1.FileName) To 1 Step -1
If Mid(OpenFileDialog1.FileName, I, 1) = "" Then Exit For
Next

OpenFileDialog1.FileName = Mid(SOSFichier, I + 1)
ListBox1.Items.Add(OpenFileDialog1.FileName)
D:


donc merci infiniment du code maintenant mon player est terminé!

vous devriez le voir bientot sur le site (mon player est spécial car on peut joué a des jeux en swf dessu tout en écouten la musique)
Messages postés
98
Date d'inscription
lundi 17 novembre 2008
Statut
Membre
Dernière intervention
4 septembre 2012

dois-je placé se code dan le code pour chargé le fichier ou dans celui de la playlist??

peut tu simplement me dire quoi faire de se code?

merci davance

a+
Afficher les 15 commentaires