Permission Refusée

Question

Hello, quand je fait un fileCopy ou alors un CopyFile

dim a
set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile app.path & "" & app.EXEName & ".exe" , "C:
omduprogramme.exe"
ca le copie sans problème mais quand je l'execute ca me dit :

ERREUR 70 : Premission Refusée 

ce quoi ce binz enfin comment faire pour pouvoir executer le copie sans cette erreur ?

merci et bonne prog a tous

stevebelgium · Answer

try this :

Dim fs, fil1
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set fil1 = fs.GetFile("c:\winzip.log")
 fil1.Copy ("c:	emp	estfile.txt")

cs_sergiooi · Answer

Salut! quand je fais supprimer mon fichier avec cette fonction       
dans mon module:

Public Sub SupprimerDossier(Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.deletefolder Destination
   Set fs = Nothing
       
'Exemple : "C:\Dossier\Dossier_à_Supp" Supprimera Dossier_à_Supp
         ' "C:\Dossier\*" Supprimera tous les dossiers contenu dans Dossier
End Sub

Et sur ma feuille:
 fs.SupprimerDossier ("C:\Program Files\ÉmulInstall v1.0\psOne\PsxFin")

je recois le message d'erreur #70 access denied. POURQUOOOOOIII???
voilà merci a tous et bon coding!!!

Permission Refusée

2 réponses

Discussions similaires