SEPARER LE NOM DU FICHIER DE SON CHEMIN SOUS ACCESS
Remiguel
-
17 nov. 2001 à 23:38
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 - 8 janv. 2009 à 00:58
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 - 8 janv. 2009 à 00:58
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
https://codes-sources.commentcamarche.net/source/2139-separer-le-nom-du-fichier-de-son-chemin-sous-access
8 janv. 2009 à 00:58
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 !
6 janv. 2009 à 23:38
jai besoin de listé le contenu dun dossier du program dans un listbox
taurais un code pour sa Galactus13 ??
sa maiderais beaucoup.
merci davance :)
6 janv. 2009 à 14:44
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...)
6 janv. 2009 à 01:01
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)
6 janv. 2009 à 00:46
peut tu simplement me dire quoi faire de se code?
merci davance
a+
30 déc. 2008 à 19:09
Que j'avais fait en Qbasic !
Qui marche sous toute version !
Function Découpeur(Test)
On Error Resume Next
Dim I As Integer, SOSFichier as String
SOSFichier = Test
For I = Len(Test) To 1 Step -1
If Mid(Test, I, 1) = "" Then Exit For
Next
MonFichier = Mid(SOSFichier, I + 1)
Repertoire = Mid(Test, 1, I - 1)
End Function
12 déc. 2008 à 16:48
jai créé un lecteur de musique, image et vidéo au quel jai intégré un lecteur de fichier swf et jai une playlist, jaimerais que seul le nom du fichier et son extention safiche dans cette playlist, je suis en vb 2008 et voici le code pour importé mes fichier
OpenFileDialog1.Title = ""
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "musique, vidéo et image|*.*"
OpenFileDialog1.ShowDialog()
ListBox1.Items.Add(OpenFileDialog1.FileName)
MediaPlayer.URL = OpenFileDialog1.FileName
au fait Dracer, quand jéssai ton code sa me met une erreur a Right
merci de bien vouloir maider
a+
19 févr. 2002 à 10:27
Dim chaine As String
Dim fichier As String
chaine = "c: oto.txt"
fichier = Right(chaine, Len(chaine) - InStrRev(chaine, "", -1, 1))
19 nov. 2001 à 18:36
19 nov. 2001 à 16:08
t'as d'autre code à se partager?
18 nov. 2001 à 15:04
Public Function SepareNom(FName As String, Optional Char As String, Optional Extend As Integer) As String
If Char "" Then Char ""
SepareNom = Left(FName, InStrRev(FName, Left(Char, 1)))
End Function
Public Function SepareFile(FName As String, Optional Char As String, Optional Extend As Integer) As String
If Char "" Then Char ""
SepareFile = Right(FName, Len(FName) - InStrRev(FName, Left(Char, 1)))
End Function
18 nov. 2001 à 10:39
Merci
Remiguel
17 nov. 2001 à 23:38
Merci Qd Même
Remiguel
17 nov. 2001 à 14:31
tu peux avoir le nom du fichier avec txt2 = Dir(txt1) qui te donnera le nom du fichier au lieu de faire tte cette boucle.
Rachid
17 nov. 2001 à 05:04
merci:)