Discussion :

[Angelus1753]

Bonjour à toute et à tous

je reviens vers vous pour une toute nouvelle question qui je l'éspère aidera d'autre personnes qui ce trouve dans ma situation

je bloque depuis un moment sur la copie d'un fichier avec un accent, et je suis persuadé de ne pas être le seule avec ce problème

ne pouvant le modifier car il fait partie de mon système de gestion automatiser

en vous remerciant par avance

voici mon code

Code :

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

1
2
3
dim FSO
set FSO = CreateObject("Scripting.FileSystemObject" )
FSO.CopyFile "C:\mémoire_systeme\memoire_interne\test.json" , "E:\Sauvegarde\"

[ProgElecT]

Salut

Quel OS as tu?
Le code suivant fonctionne sur mon ordinateur, a essayer sur le tien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Fso, SourceFichier, DestinationFichier
Set Fso = CreateObject("Scripting.FileSystemObject")
 
'SourceFichier = "C:\MesProgs\En VBScript et HTA\Convertisseur noms long en cours\mémoire_systeme\FichierTest1.txt"
'DestinationFichier = "E:\PersoFrancis\DossierMémo\FichierTest1.txt"
 
SourceFichier = "C:\mémoire_systeme\memoire_interne\test.json"
DestinationFichier = "E:\Sauvegarde\"
 
FSO.CopyFile SourceFichier,DestinationFichier
 
Set Fso = Nothing

object.CopyFile ( source, destination[, overwrite] )
source:
Requis. Spécification, sous forme d'une chaîne de caractères pouvant comporter des caractères génériques, d'un ou plusieurs fichiers à copier.

destination:
Requis. Destination, indiquée sous forme d'une chaîne de caractères, vers laquelle le ou les fichiers de source doivent être copiés. Les caractères génériques ne sont pas acceptés.

overwrite:
Facultatif. Valeur booléenne indiquant, le cas échéant, que les fichiers existants doivent être écrasés. Si la valeur est True, les fichiers sont écrasés ; si elle est False, ils ne le sont pas. La valeur par défaut est True. Il convient de noter que CopyFile échouera si destination est en lecture seule, quelle que soit la valeur de overwrite.

[Angelus1753]

Bonsoir ProgElect

Windows 7 64bits

il y a une erreur en ligne 10

[ProgElecT]

Salut

Ce matin, j'ai remis en route un PC sous windows 7 édition intégrale copyright 2009, système d'éxploitation 64 bits.
J'ai créé les dossiers mémoire_systeme ==> memoire_interne sur le disque dur locale C, j'y ai mi un fichier .json nommé test.json
Sur une clef USB J j'ai créé le dossier Sauvegarde

Avec exactement le code que j'ai mis hier avec ses chemins => dossiers => fichier, sous éditeur VBS Factory, ben ..... pas d'erreur.

Donc, vérifier
Est il possible de faire un copier/coller le fichier à la main (bouton droit sur le nom du fichier du dossier source, copier puis sélection du dossier destination, bouton droit, coller), c'est bon?
Si pas bon, donner les droits en écriture dans le dossier destination, donner aussi tous les droits dans le dossier et fichier source, .... réessayer.

Si bon en manuelle, supprimer le fichier dossier destination puis, modifier la ligne DestinationFichier = "j:\Sauvegarde\" en ajoutant le nom du fichier, donc DestinationFichier = "j:\Sauvegarde\test.json", relancer le VBS, c'est bon?
Toujours pas bon,
alors là je voie pas, il faut attendre le passage d'une personne ayant eu le même problème qui a sut trouver une solution et qui la partagera.

[Angelus1753]

Bonjour ProgElect

En copie manuelle pas de problème.

Par le script non

Erreur ligne 10 caractères 1 chemin d'accès introuvable

Voilà ce que j'ai.

[ProgElecT]

Salut (Re)

La difficulté provient du fait que de mon coté je ne parviens pas à reproduire ton problème.
Ôtes moi d'un doute, sous VBScript, est il possible de faire un CopyFile entre un autre nom de dossier source sans accent(s) et le dossier destination E:\Sauvegarde\?

[Angelus1753]

Oui sans problème à la seule condition qu'il y ai pas d'accent.

[l_autodidacte]

La ligne de code suivante donne-t-elle un résultat ? MsgBox CreateObject("Scripting.FileSystemObject").GetFile("C:\mémoire_systeme\memoire_interne\test.json").Path