DÉFINIR LE NOM DU FICHIER GRACE A SON CHEMIN
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
30 oct. 2002 à 18:50
romit Messages postés 160 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 30 juin 2011 - 1 juin 2006 à 21:54
romit Messages postés 160 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 30 juin 2011 - 1 juin 2006 à 21:54
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/4922-definir-le-nom-du-fichier-grace-a-son-chemin
https://codes-sources.commentcamarche.net/source/4922-definir-le-nom-du-fichier-grace-a-son-chemin
1 juin 2006 à 21:54
1 juin 2006 à 21:53
Public Function FindFile(adresse As String) As String
FindFile = adresse
Dim position As Integer
Dim nb As Integer
Dim max As Integer
If adresse = "" Then Exit Function
max = 50
renew:
If nb > max Then GoTo fin
position = InStr(adresse, "")
If position <> 0 Then
adresse = Mid(adresse, position + 1)
nb = nb + 1
GoTo renew
End If
fin:
renew2:
nb = 0
If nb > max Then GoTo fin2
position = InStr(adresse, "/")
If position <> 0 Then
adresse = Mid(adresse, position + 1)
nb = nb + 1
GoTo renew2
End If
fin2:
FindFile = adresse
End Function
Vous trouverez peut-être ça lent et long mais pas grave car ça marche et ce n'est pas lent !
J'ai fait aussi la même chose pour les extensions (je sais qu'on peut utiliser Right etc... mais ça prendrais les 3 dernières lettres. Et si l'extension fait 4 lettre ?! (sisi, ça arrive ^^)
Public Function FindExt(adresse As String) As String
FindExt = adresse
Dim position As Integer
Dim nb As Integer
Dim max As Integer
If adresse = "" Then Exit Function
max = 50
renew:
If nb > max Then GoTo fin
position = InStr(adresse, ".")
If position <> 0 Then
adresse = Mid(adresse, position + 1)
nb = nb + 1
GoTo renew
End If
fin:
FindExt = adresse
End Function
je sais que c'est pas beau mais faites copier coller des fonctions dans votre projet, envoyer lui comme paramètres le chamin d'acces au fichier et voila !
Ex: MsgBox FindFile("C:\Program Files\Entreprise\programme.exe")
Affichera une messagebox contenant "programme.exe"
^^
1 mai 2006 à 12:33
27 avril 2006 à 19:57
et en plus il ne faut pas voir le fichier .
il faut effectuer les modification sans voir le fichier
aidez moi.
ma boit de message est : laghyou_50@hotmail.com
6 nov. 2002 à 10:25
merci jack, ca s'implifie ma fonction cheminfichier() ;-)
31 oct. 2002 à 11:00
Dim Temp() As String
Temp = Split(Path, "/")
File = Temp(Ubound(Temp))
j'ai mis slash à cause du pb de l'anti-slash
31 oct. 2002 à 10:58
30 oct. 2002 à 22:04
30 oct. 2002 à 22:00
If Mid$(Fichier, Y, 1) = "" Then
30 oct. 2002 à 21:46
:)
dim Fichier as string
dim Y as integer
dim H as integer
For Y = 1 To Len(Fichier)
If Mid$(Fichier, Y, 1) = "" Then
H = Y
End If
Next Y
NomFichier= Mid$(Fichier, H + 1, Len(Fichier))
30 oct. 2002 à 19:14
30 oct. 2002 à 19:11
jack >> tu l'as essayer ton code avant de le sortir ??
ça muy mas bueno ...
NomFichier = Right(chemin, Len(chemin) - InStrRev(chemin, ""))
@+
30 oct. 2002 à 18:56
30 oct. 2002 à 18:50
NomFichier = Right(Chemin, Len(Chemin) - InstrRev(Chemin, ""))
Pour info, InstrRev fait une recherche en commençant par la fin.
:-))