problème d'espace dans le chemin pour ouvrir un fichier VBS
mon code fonctionne que si le fichier ne comporte pas d'espace.
je compare un text avec un csv comportant un numero et le nom du programme puis je veux ouvrir ce programme.
le probleme est que j ai plus de 1000 fichier differant et je ne sais pas le nombre d' espace dans le nom de fichier.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| 'lecture du scan ou du code
numprod = InputBox ("scanner ou entrer le numero d'itentification", "Demande du code de fabrication")
'lecture du csv
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("liste programme.csv")
Do
x = Ftxt.Readline
tab=Split(x, ";")
Loop until tab(0)= numprod or Ftxt.AtEndOfStream
if Ftxt.AtEndOfStream and tab(0)<> numprod then
msgbox "erreur de code"
wscript.quit
end if
Ftxt.Close
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
rep = "F:\fiche\fini\"
if tab(2)= 2 then
'appel d'un script
repc=rep & tab(0) &".vbs"
elseif tab(2)=1 then
'appel d'un programme
repc=rep & tab(0) &".doc"
end if
WshShell.Run repc
Set WshShell = Nothing
wscript.Echo repc |
pb d'espace dans le chemin pour ouvrir un fichier VBS
si ton chemin comporte des espaces, il doit être encadré de guillemets (en plus des guillemets indiquant une chaine de caractère dans ton code).
