Erreur "Pas d'extension de fichier dans .."

Bonjour à tous,

Depuis un changement de nom de fichier (.ini et le .vbs), j'ai le message d'erreur suivant: "pas d'extension de fichier dans.."
Voici mon code:

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

Path = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) strIniFile=Path & "Definition des chemins repertoires pour chargement des données.ini" Set oFs=CreateObject("Scripting.FileSystemObject")   If oFs.FileExists(strIniFile) Then Set oFile=oFs.OpenTextFile(strIniFile) Execute oFile.ReadAll() Else Msgbox "Le fichier (.ini) n'a pas été trouvé !!!" WScript.Quit End If   Set oFile=Nothing Set oFs=Nothing ' Si l'on ne s'en sert plus   TimeDebut = Time ' Boucle pour affichage du popup Set oSh=CreateObject("WScript.Shell") If WScript.Arguments.Count = 1 Then If WScript.Arguments(0) = "popup" Then While True oSh.Popup "Copie en cours, patientez..." Wend End If   ' le corps de mon code ensuite End If

---

Après investigation, le message apparaît à la ligne

Code:

---

If WScript.Arguments.Count = 1 Then

---

Je précise que cela fonctionnait parfaitement avant que je ne renomme le fichier .ini et le .vbs
Je ne comprends pas bien.

Une idée?
Merci pour votre aide.

Je viens de trouver.
J'ai renommé mon fichier .vbs en enlevant les espaces, et ça fonctionne à nouveau..

Si qqun a une explication, je suis tout de même preneur.
Je laisse donc le sujet ouvert.

@ plus.

Les noms longs de fichiers ou chemin d'un fichier comportant des espaces ne sont pas correctement gérés par WScript comme en DOS,
par conséquent, il faut les entourer de guillemets :

Code:

---

1 2 3

Function DblQuote(strIn) DblQuote = Chr(34) & strIn & Chr(34) End Function

---

et pour l'appel : Monchemin = DblQuote(Monchemin)

Merci pour cette information. Je m'empresse de rectifier mes codes.

Problème résolu!

@ plus!