bonjour
J'ai une erreur 800A0046 Permission denied et je comprends pas pourquoi.
Je suis administrateur de mon poste et j'ai les pleins droit sur tout mon disque. Je suis pas une bête en programmation, j'essaye de me debrouiller en me nourrissant des conseils autres, merci pour votre aide
Je crée un fichier txt ou je liste les repertoire utilisateurs qui m'interessent, puis je voudrais forcer la copie d'un fichier sur tout les repertoires listé dans mon fichier texte
de forme D:\users\[users]\Lotus\Notes\pernames.ntf
 
 
'recuperez les path depuis le fichier texte
'on error resume next
Set objFileSystem = CreateObject("Scripting.fileSystemObject" )
Set obj_fichier = objFileSystem.OpenTextFile("lotus.txt", 1)
dim i
i=0
do until obj_fichier.atendofstream
    ligne = obj_fichier.readline
    ligne_split_table = Split(ligne, "\" )
    longeur_table = ubound(ligne_split_table)
    ligne_sans_filename = ""
    for i = 0 to longeur_table - 1
      if i <> 0 then
          ligne_sans_filename = ligne_sans_filename + "\" + ligne_split_table(i)
      else
          ligne_sans_filename = ligne_split_table(i)
      end if
    next
    msgbox(ligne_sans_filename)
    objFileSystem.CopyFile "C:\outils\lotus\majbal\pernames.ntf",ligne_sans_filename, OverwriteExisting
         
loop
 
voila, si qq'un a une idée
 
Thom

Ton dossier n'est pas en lecture seule?
Le message d'erreur apparait sur quelle ligne?

"Ton dossier n'est pas en lecture seule? "
 
non, les droits ntfs et windows sont ouvert, et de plus je suis admin du poste
 
"Le message d'erreur apparait sur quelle ligne?"
cette ligne  
'objFileSystem.CopyFile "C:\outils\lotus\majbal\pernames.ntf",ligne_sans_filename, OverwriteExisting '