Patit souci de deplacement de fichiers d'un folder a un autre [Résolu]

Signaler
Messages postés
409
Date d'inscription
jeudi 30 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2013
-
Messages postés
409
Date d'inscription
jeudi 30 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2013
-
Bonjour,
J'essaye,pour des raisons de sauvegarges de fichiers, de faire un filemove de tous les fichiers .xls d'un folder local de mon HDD vers un autre rep local
j'ai fait ceci :
Private Sub filemovexls()
        Dim fichiers As String() = Directory.GetFiles("\\nas\repsource", "*.xls")
        Dim FileDestination As String = "\\nas\rep_destination"
        For Each fileName As String In fichiers
            File.Move(filename, FileDestination)
        Next fileName
End Sub


a l'execution, rien ne se copie et j'ai l'erreur "Impossible de créer un fichier déjà existant." a la ligne :
File.Move(filename, FileDestination)


en debug pourtant, j'ai bien filename qui vaut repsource/mon_fichier_a _deplacer et filedestination qui vaut bien mon rep de destination

j'avoue ne pas comprendre ce qui se passe

merci de vos suggestions

7 réponses

Messages postés
87
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
28 mai 2013
1
je suis d'accord avec toi cmarcotte...lol

en fait je pense qu'il m'a pas compris!!

ce que je voulais dire :


        Dim fichiers As String() = Directory.GetFiles("\\nas\repsource", "*.xls")
        Dim FileDestination As String = "\\nas\rep_destination"
        Dim fichier As String
        For Each fileName As String In fichiers
            fichier  = fileName.Split("")(fileName.Split("").Length - 1) //tu extrais le nom du fichier
            File.Move(fileName, FileDestination & fichier)
        Next fileName


voilà...

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
Messages postés
87
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
28 mai 2013
1
Il faut que tu extrais le nom du fichier de filename pour le mettre dans fileDestination

File.move c'est :
parametre 1 le chemin complet du fichier de départ
parametre 2 le chemin complet du fichier destination

ex : file.move("C:\DEPART\test.txt","C:\DESTNATION\test.txt")

ça permet aussi de changer le nom du fichier de destination...

si tu as d'autre soucis



-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
Messages postés
409
Date d'inscription
jeudi 30 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2013

oui je suis daccord avec toi mais mon souci est que je n'ai pas qu'un fichier test.txt dans le folder source mais plusieurs fichiers aux noms différents avec l'extension .xls

Bonjour,
Messages postés
87
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
28 mai 2013
1
l'histoire du ".txt" c'etait pour exemple mais ça marche avec n'importe quel fichier.

-----------------------------------------------------------------------------------------------------------
De tous ceux qui n'ont rien à dire, les plus agréables sont ceux qui se taisent.
Messages postés
409
Date d'inscription
jeudi 30 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2013

Disons que je suis un peu psycho rigide
je vois une expression "en dur" je l'interprète "en dur" et j'aurais effectivement pu n'avoir qu'un fichier a déplacer .... pis un peu de mauvaise foi des fois ça masque une certaine incompétence ...

En tout cas merci bien pour l'aide, je teste çà des demain au taf
Messages postés
409
Date d'inscription
jeudi 30 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2013

ca fonctionne impeccablement, j'ai juste fait un file.copy au lieu d'un file.move finalement ....
Merci beaucoup a vous deux