Bonjour le forum,

J'essaie d'auitomatiser le déplacement de fichiers depuis un dossier source vers un dossier archive.

Pour ce faire.
1 - Je crée le répertore d'archives par la méthode fso édictée par Sylkiroad dans la FAQ créer un dossier
2 - J'utilise la méthode fso

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DeplaceFichier(source As String, destin As String)
 
Dim objOFS As Variant
 
Set objOFS = CreateObject("Scripting.FileSystemObject")
 
If (objOFS.FileExists(source)) Then
        objOFS.MoveFile source, destin
End If
 
Set objOFS = Nothing
 
Exit Sub
Ici, l'argument source désigne le chemin complet du fichier à déplacer (Dossier + Nom + extension), l'argument destin celui du fichier cible.

Il se trouve que si la longueur de destin est supérieure à la limite - classique - de 255 caractères, alors le code retourne un bug
Chemin introuvable
Ya-t-il un moyen de résoudre ce problème?

Par avance, je vous remercie.