Discussion :

[pierrequiroule64]

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.

[l_autodidacte]

Bonjour et Bienvenu sur DVP;

Un peu plus d'explication peut nous servir à comprendre ce que tu cherches à faire :
- Quel est le fichier qui existe réellement dont le chemin devrait être tapé dans l'InputBox ?
- Où devrait être placé le fichier à déplacer et avec quelle extension ?
- La conversion dont tu parles est-ce seulement la modification de l'extension du fichier ou autre chose ?

[pierrequiroule64]

Le fichier existant est un fichier texte au format .TRA.
Le fichier doit être placé où nous voulons dans l'ordinateur.
Non, ce n'est pas seulement une modification d'extension. Tout les document est modifié grâce a un tableau 2d

[ProgElecT]

Salut
Le debug VBScript n'est pas des plus fiable au niveau de l'information ligne, colonne, je pencherai plutôt pour ton Rename qui n'existe pas de cette façon en VBScript.
Pour ton problème de Rename, une Sub qui fait le boulot.

Code :

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

1
2
3
4
5
6
7
8
Sub RenameFichier(CheminNomFichierSrc, CheminNomFichierDest)
        Dim objFSO
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.MoveFile CheminNomFichierSrc,CheminNomFichierDest
        Set objFSO = Nothing
End sub
 
RenameFichier "C:\MesProgs\En VBScript et HTA\Rename\testSource.txt","C:\MesProgs\En VBScript et HTA\Rename\testSource2.txt"

Quand le fichier est déplacé dans le même dossier, en fait il est renommé, si source et destination sont différent, là il y a déplacement.