Discussion :

[johnbobby]

Bonjour,

Je renomme un fichier avec le code :

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile NameFichierOrigineComplet, NameFichierModifieComplet

Mon souci si le script est déjà passé une première fois, qu'il a déjà renommé mon fichier j'ai une erreur ce qui est normal.

J'aimerai indiquer une condition pour éviter ce souci.

Merci d'avance pour votre aide.

[pitchalov]

Bonjour.

Un test d’existence du fichier?

Code :

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

1
2
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(NameFichierOrigineComplet) Then objFSO.MoveFile NameFichierOrigineComplet, NameFichierModifieComplet

Bonnne continuation

[johnbobby]

Merci pour la réponse.

En fait ce que je voudrais c'est que si NameFichierOrigineComplet existe et que NameFichierModifieComplet n'existe pas alors je fasse le
objFSO.MoveFile NameFichierOrigineComplet, NameFichierModifieComplet

[pitchalov]

Ok.
Un deuxième test pour vérifier que le fichier renommé n'existe pas :

Code :

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

If (objFSO.FileExists(NameFichierOrigineComplet)) AND (NOT objFSO.FileExists(NameFichierModifieComplet)) Then objFSO.MoveFile NameFichierOrigineComplet, NameFichierModifieComplet

Bonne continuation

[johnbobby]

Merci

J'avais un souci de syntaxe !

Parfait c'est top. Encore un grand merci