App.Path en local et sur CD

Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006
-
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
lorsque j'utilise App.Path vers un disque dure c'est OK mais des que je passe en lecture vers un cd j'ai un probleme
exemple:
LeFichier = App.Path & "\carnet\CongePerso"
sur C: le chemin sera
c:\carnet\CongePerso
ca va marcher!

mais si je veux aller chercher sur un CD (D:)la même phrase aura comme chemin:
d:\\carnet\CongePerso

et la ca me fais une erreur avec les deux "\" je pourrai eventuellement retirer la barre, mais le probleme serai inverce

comment pourrai je remedier a ce probleme?

7 réponses

Messages postés
22
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
7 décembre 2002

T'utilise la fonctio Replace:

LeFichier=Replace(LeFichier, "\", "")

-Dok
Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006

merci ca marche c'est bien ca, mais il a falut que je relance le truc! voila exactement ce que j'ai mis

NomFichier = filFichier.Path + "" + filFichier.FileName
filFichier.Path = Replace(filFichier.Path, "\", "")
NomFichier = filFichier.Path + filFichier.FileName

et la impecable! encore merci tu me retire une belle epine du pied
Luc
Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006

en fait, j'ai ete trop vite a repondre ma joie!
le probleme perciste, mais ce n'est pas un probleme de lecture cd ou disque dure, c'est si le fichier est en racine du disque qu'il met les deux anti slaches "\" qu'and il est dans un repertoire, il n'y a pas le probleme! aurai tu une solution?
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Essaie :
If Right(App.Path,1) = "" Then
LeFichier = App.Path & "carnet\CongePerso"
Else
LeFichier = App.Path & "\carnet\CongePerso"
End If
Messages postés
22
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
7 décembre 2002

Bah la aussi t'a été trop vite, c normal que ca marche po:

NomFichier = filFichier.Path + "" + filFichier.FileName

NomFichier = Replace(NomFichier, "\", "")

Ta ligne d'apres je comprend pas a koi elle sert (a mon avis retire la)
si filFichier.path se termine par "" donc y il y'a 2 "" donc c remplacé
sinon y'en a qu'1 et du coup il ne trouve pas "\" donc pas de remplacement...
Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006

ok cette fois ci ca marche vraiment merci a tous j'ai fais:
NomFichier = filFichier.Path + "" + filFichier.FileNamefilFichier.Path NomFichier Replace(NomFichier, "\", "")

et la meme vite ca marche)))))
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
Une autre suggestion, teste la dernière lettre de ton path et ajoute ou non le backslach en fonction du résultat :

NomFichier = filFichier.Path
If right(NomFichier,1) <> "" Then
NomFichier = NomFichier + "" + filFichier.FileName
Else
NomFichier = NomFichier + filFichier.FileName
End if