Bonjour,
j'utilise un petit serveur NAS (de la Cie) que je partage sur plusieurs machines dont une de test et sur lequel j'installe mes applications pour les tester en réseau. Ce serveur semble "perdre un peu le pédales" depuis quelque temps, sans doute du fait du trop grand nombre de (petits) fichiers dans la FAT. Bref, rien de bien gênant (si ce n'est qu'il n'est plus capable de m'afficher les fichiers dans l'ordre habituel, c'est à dire les répertoires en premier puis les fichiers : répertoires et fichiers sont mélangés et apparaissent dans l'ordre alphabétique - un répertoire perdu au milieu des fichiers).
Ce qui est plus embêtant, c'est que, sur ma machine de test qui est sous XP familial (mais pas sur ma machine de développement qui est sou XP Pro), mes programmes plantent désormais chaque fois qu'est rencontré un
Filecopy (alors que jusqu'à présent tout allait bien).
Une erreur 53 est renvoyée. A noter que le fichier est tout de même copié (le plantage s'effectue en sortie de traitement mais je suis certain que ce n'est pas sur les lignes suivantes puisque j'ai ajouté un msgbox juste après la copie et il n'est pas exécuté). Je pourrais bien sûr mettre un traitement d'erreur mais j'ai plutôt essayé d'utiliser le fso (je sais, ça ne plaira pas à EBArtSoft !) et là... plus de problème ! J'ai d'ailleurs écrit une petite fonction pour remplacer facilement tous mes filecopy :
Public Sub CopieFic(ByVal Ch_NomficSource$, ByVal Ch_NomficDestination$)
Dim fso, nomfic
Set fso = CreateObject("Scripting.FileSystemObject")
Set nomfic = fso.GetFile(Ch_NomficSource$)
nomfic.Copy (Ch_NomficDestination$)
Set fso = Nothing
End Sub
Les questions sont donc : quelqu'un a-t-il déjà rencontré ce type de problème sur FileCopy (ou Kill) ?
Le fso garantit-il une meilleure compatibilité avec les SE qui gèrent les serveurs réseaux (ce qui dans la situation particulière dans laquelle se trouve mon serveur NAS semble être le cas) ?
JMC70