gerer l'espace entre MES et Documents VB6Résolu

Question

Bonjour !
Debutant VB6

j'ai pose le message mais j'ai rien compris a la reponse

je veut ouvrir un fichier .Txt  avec Wordpad
Voici Mon code

TaskID = Shell("C:\Program Files\Windows NT\Accessoires\WORDPAD.EXE  e:\Mes documents\Fichiers_HY " & "F" & HY & ".txt", vbNormalFocus)

 Le Probleme c'est l'espace entre  (Mes   Document)
VB6 ne trouve pas la chemin 
pour faire Simple il suffit de supprimer l' espace (MesDocument)
Mais j' aimerai gerer l' espace est ce qu'il y a une Solution ???

Merci

NHenry · Accepted Answer

Une question similaire a &#233;t&#233; pos&#233;e il y a peu de temps.
Pour &#233;viter cette erreur remplace ta ligne par :
TaskID = Shell("C:\Program Files\Windows NT\Accessoires\WORDPAD.EXE 
""e:\Mes documents\Fichiers_HY " & "F" & HY & ".txt""",
vbNormalFocus)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NH

cs_FPatrick · Answer

Il te faut mettre le nom de fichier entre guillement.
Exemple:
? shell("C:\Program Files\Windows NT\Accessoires\WORDPAD.EXE ""c:	empep 1	est.txt""")
 2732 

Attention &#224; doubler les guillements pour bien le prendre en compte.

Exemple : 
Pour faire "Bonjour", il faut : Rep = """Bonjour"""

papounez · Answer

mon Code Marche Bien


quand le Dossier s'appelle "Mondossier"
il ne marche pas quand il s'appelle "Mon Dossier"
peut on Gerer L'espace??????????,
Merci

PCPT · Answer

Papounez, t'&#233;nerves pas.
&#233;coute les conseils donn&#233;s. si le probl&#232;me venait vraiment de ton espace &#224; Mes Documents, tu aurais d&#233;j&#224; une erreur &#224; Windows NT

essaie ;)
PCPT

cs_FPatrick · Answer

Regarde au niveau des guillements comme les exemples donn&#233;s.

? shell("C:\Program Files\Windows NT\Accessoires\WORDPAD.EXE c:	empep 1	est.txt")
marche pas

? shell("C:\Program Files\Windows NT\Accessoires\WORDPAD.EXE ""c:	empep 1	est.txt""")
marche.

PCPT · Answer

après tests [VB6] Private Sub Command1_Click() Dim MyTxt As String MyTxt = "N:\Mes Documents xt_bidon.txt" 'cette ligne déclanche une erreur !!! (fichier introuvable) Call Shell("F:\WINDOWS\ServicePackFiles\i386\wordpad.exe " & MyTxt, vbNormalFocus) 'cette ligne fonctionne Call Shell("F:\WINDOWS\ServicePackFiles\i386\wordpad.exe """ & MyTxt, vbNormalFocus) End Sub Coloration syntaxique automatique [AFCK] PCPT

papounez · Answer

excuse pour les gros Caractere pas ma fautes et pas en colere
mais vrais pour les ""
copier coller pour ne pas faire de faute 
probleme resolu

Encore  et toujour  Merci

Gerer l'espace entre MES et Documents VB6

7 réponses

Discussions similaires