Discussion :

[nikkss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nikkss]

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.

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function DblQuote(strIn)
DblQuote = Chr(34) & strIn & Chr(34)
End Function

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

[nikkss]

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

Problème résolu!

@ plus!