probleme de deplacement de fichier

Question

Salut à tous

je souhaite deplacer un fichier (.mp3) d'un dossier vers un autre, j'utilise le code suivant:

Dim fs 
Set fs = CreateObject("Scripting.FileSystemObject") 
fs.moveFile adresse origine, adresse destination

Tout se passe très bien le problème est que dans le dossier d'origine il subsiste un fichier (illisible) de 0 octet portant le même nom que le fichier déplacé. 

Question: pourquoi???????

fs.DeleteFile adresse origine, True , me pose le même problème.

Merci d'éclairer le débutant que je suis.

Gobillot · Answer

If Dir(adresse_destination) <> "" then Kill adresse_destination



Name adresse_origine, adresse_destination




Daniel

JMKPROD · Answer

Merci gobillot pour ta proposition, 
je l'ai testé elle déplace bien le fichier, mais le problème n'est toujours pas réglé, POURQUOI reste-t-il un fichier de 0 octect dans le dossier d'origine???

JMKPROD · Answer

EUREKA!!!!!!!!!!!!!!

Après le déplacement, dans la même procédure j'effectuais une mise à jour d'une filelistbox, j'ai supprimer cette mise à jour et mon fichier "fantome" n'existe plus.

Désolé pour le dérangement.

Gobillot · Answer

je ne sais pas 

pour cr&#233;er le fichier il faut l'ouvrir, le simple fait de l'ouvrir en
sortie mais pas en input (sinon erreur) va le cr&#233;er &#224; z&#233;ro s'il existe
pas.



si le probl&#232;me est r&#233;gl&#233; tant mieux, mais j'ai pas compris la filelistbox

un simple test d'existence peut &#233;viter ce probl&#232;me:

if Dir(nom_ficgier) <> "" then traitement




Daniel

Probleme de deplacement de fichier

4 réponses

Discussions similaires