VB script et noms courts Windows

[Dan7756]

Bonjour,

Je me heurte à un problème tout "bête" sans m'en sortir (je suis en Windows 10).

J'ai créé, il y a quelques années, un petit script (VB script) permettant de sauvegarder certains fichiers personnels sur disque externe.
Depuis une mise à jour de Windows10, le système n'accepte plus les noms courts des fichiers et répertoires (Progra~1 au lieu de "Program Files").
Je ne parviens pas à modifier le script ci dessous pour le faire fonctionner (en ajoutant des quottes ou en créant une constante).

Soit j'ai "erreur 800A0401", soit "D:\Program" n'est pas reconnu comme commande, ou erreur de compilation, .
Certainement une connaissance superficielle du langage VB. Pouvez vous m'aider?
Merci.

Commande = "cmd /K D:\Program Files\7-Zip\7z u " & USB & ":\SauvPCFixe-HP-W10\" & ligne & ".zip " & ligne2
Retour = Sh.Run (Commande, 1, True)

PS: on peut s'en sortir en modifiant le "Registre Windows" pour les noms en 8.3 mais cela n'ai pas, à mon avis, la solution pérenne.

[Dan7756]

Le problème est résolu --> Problème de Quottes.
Merci