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.