VBA Ecrire un nouveau fichier dans le dossier Program Files

Question

J'ai un fichier xlsm qui est utilisé par beaucoup d'utilisateurs, j'ai ajouté une fonction de mise à jour qui doit vérifier sur un serveur si une nouvelle mise à jour du fichier xlsm est disponible, et si elle est disponible, il doit télécharger le fichier, puis écraser le fichier existant, certains comment je reçois une erreur écrire au fichier erreur 3004 peut-il quelqu'un peut-il m'aider avec elle? Laissez-moi vous expliquer mon code;

le fichier xlsm client a un chèque de nouveau bouton de mise à jour, lorsque l'utilisateur clique sur ce bouton, voici ce qui se passe,

Private Sub CommandButton5_Click() 
Dim Answer As VbMsgBoxResult, N%, MyFile$ 

Answer = MsgBox("1) You need to be on-line to update" & vbLf & _ 
"2) The update may take a few minutes" & vbLf & _ 
"3) Please do not interrupt the process once started" & vbLf & _ 
"" & vbLf & _ 
"SEARCH FOR UPDATE?", vbYesNo, "Update?") 
If Answer = vbNo Then Exit Sub 

'otherwise - carry on 
Application.ScreenUpdating = False 
Application.EnableCancelKey = xlDisabled 


On Error GoTo ErrorProcedure 

Application.Workbooks.Open ("http://www.mysite.com/Download/Update.xlsm") 

'The book on the site opens and you can do whatever you 
'want now (note that the remote book is "Read Only") - in 
'this particular case a workbook_Open event now triggers 
'a procedure to export the new file to the PC 

ErrorProcedure: 
MsgBox Err.Description 
End Sub 

puis le update.xlsm du serveur ouvre, et est le code ici;

Private Sub workbook_open() 


Dim localfile As Date 
Dim newfile As Date 
localfile = FileDateTime("C:\Documents and Settings\localhost\Desktop\sample.xlsm") 
newfile = "6/6/2013 4:00" 
If DateDiff("s", localfile, newfile) > 0 Then 

MsgBox "its closed" 

Application.StatusBar = "contacting the download" 

Dim myURL As String 
myURL = "http://www.mysite.com/Download/sample.xlsm" 

Dim WinHttpReq As Object 
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP") 
WinHttpReq.Open "GET", myURL, False 
WinHttpReq.Send 

Application.StatusBar = "waiting for the response" 

myURL = WinHttpReq.ResponseBody 
If WinHttpReq.Status = 200 Then 
Application.DisplayAlerts = False 
Set oStream = CreateObject("ADODB.Stream") 
oStream.Open 
oStream.Type = 1 
oStream.Write WinHttpReq.ResponseBody 
oStream.SaveToFile ("C:\Documents and Settings\localhost\Desktop\sample.xlsm") 
oStream.Close 
End If 


MsgBox "Update Completed" 
Application.StatusBar = "" 
Windows("Update.xlsm").Activate 
ActiveWindow.Close 
Application.DisplayAlerts = True 
Else 
MsgBox "There is no New Update" 
Application.StatusBar = "" 
End If 
End Sub 

Answer 1

écriture à %PROGRAMFILES% requiert des privilèges d'administrateur sur Windows Vista et au-dessus (ou XP lors de l'exécution en tant qu'utilisateur limité). Les applications ne sont pas censées y stocker leurs données et ces informations ont été publiées depuis plus d'une décennie maintenant.

Une bonne référence ici pour plus d'informations sur l'endroit où stocker les données de votre application est en Does Microsoft have a best practices document regarding the storage of App Data vs User Data on different Windows Platforms?

Cependant, votre question est confuse, parce que vous faites référence à Program Files folder dans votre sujet, mais votre code utilise un chemin codé en dur C:\Documents and Settings\localhost\Desktop, ce qui n'est pas la même chose. Si tel est le problème réel, il est probablement à cause de deux problèmes:

1. Vous avez codé en dur dans C:\Documents and Settings, qui n'est plus l'emplacement approprié pour les données utilisateur depuis la publication de Windows Vista. Vous devriez utiliser les fonctions WinAPI disponibles pour trouver ce dossier à la place. (Recherchez ici SO pour [winapi] SHGetFolderLocation.)

2. Vous avez codé en dur dans l'emplacement du dossier Desktop de l'utilisateur, qui, une fois de plus, ne correspond peut-être pas à ce que vous croyez devoir l'être. La même fonction WinAPI que vous recherchez avec la recherche ci-dessus doit être utilisée pour trouver le dossier du bureau.

3. Il est hautement improbable que localhost ait un dossier Desktop, même si vous recherchiez au bon endroit les documents utilisateur. localhost est un alias pour l'adresse IP 127.0.0.1, et je n'ai jamais connu de dossier de bureau pour un alias d'adresse IP. localhost n'est pas un utilisateur sur la machine locale et seuls les utilisateurs peuvent avoir des dossiers de bureau.