Bonjour,
pouvez vous m'aidez pour mon script VBS?
Il y a deux erreurs :
- ligne 6, "fichier introuvable", erreur 800A0035
- ligne 7, "variable non définie "rename"", erreur 800A01F4


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
*
ChemNomFichier = InputBox("Entrez le chemin du fichier à convertir", "Chemin du fichier à importer")
    NewFichier = ChemNomFichier & ".txt"
    OrigineFichier = ChemNomFichier & ".TRA"
 
Set WshShell = WScript.CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.MoveFile OrigineFichier, ChemNomFichier & ".txt"
    Rename OrigineFichier, ChemNomFichier & ".txt"
    arg1_ext = Left(arg(0), Len(arg(0))- 4 ) & ".txt"
Merci d'avance.