App.Path en local et sur CD

lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006 - 10 nov. 2002 à 17:57
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 3 déc. 2002 à 20:02
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

ElDoktor Messages postés 22 Date d'inscription samedi 2 novembre 2002 Statut Membre Dernière intervention 7 décembre 2002
10 nov. 2002 à 18:04
T'utilise la fonctio Replace:

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

-Dok
0
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006
10 nov. 2002 à 18:35
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
0
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006
10 nov. 2002 à 18:58
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?
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
10 nov. 2002 à 21:33
Essaie :
If Right(App.Path,1) = "" Then
LeFichier = App.Path & "carnet\CongePerso"
Else
LeFichier = App.Path & "\carnet\CongePerso"
End If
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ElDoktor Messages postés 22 Date d'inscription samedi 2 novembre 2002 Statut Membre Dernière intervention 7 décembre 2002
11 nov. 2002 à 01:02
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...
0
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006
11 nov. 2002 à 09:56
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)))))
0
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 3
3 déc. 2002 à 20:02
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
0
Rejoignez-nous