je me suis appercu que dans ton script tu a defini 2 fois la variable suivante :

Dim oFS, Disque, Fichier, AccesFichier
Dim AccesFichier

tu vois que AccesFichier est defini deux fois et moi mon compilateur ma signal une erreur a se niveau !!!

Qu en pense Tu ? le problem peut venir de la je pense !!!