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
Ici, l'argument source désigne le chemin complet du fichier à déplacer (Dossier + Nom + extension), l'argument destin celui du fichier cible.
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
Il se trouve que si la longueur de destin est supérieure à la limite - classique - de 255 caractères, alors le code retourne un bugYa-t-il un moyen de résoudre ce problème?Chemin introuvable
Par avance, je vous remercie.
Partager