App.Path en local et sur CD

Question

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?

ElDoktor · Answer

T'utilise la fonctio Replace:

LeFichier=Replace(LeFichier, "\", "")

-Dok

lucky2222 · Answer

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

lucky2222 · Answer

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?

cs_rene38 · Answer

Essaie :
If Right(App.Path,1) = "" Then
    LeFichier = App.Path & "carnet\CongePerso"
Else
     LeFichier = App.Path & "\carnet\CongePerso"
End If

ElDoktor · Answer

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...

lucky2222 · Answer

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)))))

cs_PROGRAMMIX · Answer

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

App.Path en local et sur CD

7 réponses

Discussions similaires