Discussion :

[tibofo]

Bonjour,
j'ai fait un petit exe qui me copie un fichier d'un répertoire vers un autre serveur, autre répertoire.

j'utilise fso.CopyFile, extrait:

Code :

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

1
2
3
4
5
6
7
8
9
10
Fichierdate = "\\srv-2\Dossier\sousdossier\toto" & DateHeure & ".csv"
 
' sur le net, j'ai trouvé qu'il faut utilisé ceci :
Dim fso As New FileSystemObject
'Set fso = New FileSystemObject ' j'ai pas activé le set car sur plusieurs sites il n'y était pas
 
'D est le disque de mon serveur 1
fso.CopyFile "D:\programme\soc\toto.csv", Fichierdate
 
Unload Me

Je "vois" la copie se faire, le fichier apparait puis au bout de 8 secondes, il disparait. Comme si qq chose l'empêchait de se finaliser.

Auriez-vous une idée ?
Est-ce qu'il faut ajouter un code genre CLOSE ou qq chose dans ce genre ?


MErci

[tibofo]

j'ai activé la ligne set fso....

et j'ai testé : cela marche mieux : sur 5 essais, le fichier n'a disparu qu'1 fois.


Mais c'est super étrange.

J'espère que l'un d'entre vous pourra m'en dire plus

[tibofo]

Bonjour,

je vais m'auto flagéler mais c'est pour la bonne cause du forum et de ceux qui vivront la même expérience.

suite à mon dernier post ci-dessus, mon fichier a continué à re-disparaître de façon quasi habituelle. J'ai passé l'aprés midi, à fouiller le net, à chercher, à me prendre la tête.

Et vers les 18H30/19H, je découvre un répertoire proche de mon répertoire de sortie (imposé par mon client et le fournisseur de son autre logiciel métier). Ce répertoire s'appelle "Historiques". Par curiosité,je suis rentré dedans et... qu'est-ce que j'y découvre ???? Tous mes fichiers, tous là !!

Et c'est pas moi qui les y ai mis!! En fait, il avait un soft qui scanneen permanence mon 1er répertoire où moi je faisais mon export et dés qu'il trouve un fichier, le transfère dans le dossier "Historiques"

Bref, 1/2 journée perdue car il ne m'avait pas prévenu.

C'est tout con !!!