I think if you change just some of the final lines to:
'Set xlApp = CreateObject("Excel.Application")
'set xlBook = xlApp.WorkBooks.Open(strAppFolder & "\" & strAppFile)
wshshell.Run strAppFolder & "\" & strAppFile
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of qingqinga qingqinga@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Thursday, February 7, 2019 10:15 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?
Sent: Thursday, February 7, 2019 10:15 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?
Dear Duane,
Thank you so much. I'm going to try it tomorrow.
Best Regards,
Kevin
发自 WPS邮箱客戶端
在 "Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2019年2月7日 22:19写道：
This is the script file that is saved with a vbs extension. This is the only copy I could find and it is used for an Excel file. I don't have the time now to change the lines near the bottom to make it Access.
'===================
' File: TrustCopyRun.vbs
'===================
Const SystemFolder= 1
Dim fso 'to be used for file related code
Dim SysFolder
Dim SysFolderPath
dim strUserLogin
Dim RegEdPath
Dim strAppFolder
Dim strAppName
Dim strAppFile
Dim strAppNetworkFile
'==============================================================
' edit the values in the next three lines to match your application and network location
strAppName = "YourAppTitleHere"
strAppFile = "YourAppFileNameHere"
strAppNetworkFile = "YourFullAppNameHereWithNetworkPathIncluded"
'==============================================================
Set fso = wscript.CreateObject("Scripting.FileSystemObject")
Set SysFolder =fso.GetSpecialFolder(SystemFolder)
SysFolderPath= SysFolder.Path
'initialize the script shell object
Set WshShell = WScript.CreateObject("WScript.Shell")
strUserLogin = WshShell.ExpandEnvironmentStrings("%USERNAME%")
strAppFolder = "C:\users\" & strUserLogin & "\" & strAppName
if not fso.FolderExists(strAppFolder) Then
fso.CreateFolder strAppFolder
End If
'Office 12
RegEdPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\"
WshShell.RegWrite RegEdPath ,strAppName
'Write the values into the registry
WshShell.RegWrite RegEdPath & strAppName & "\Path" , "C:\Users\" & strUserLogin & "\" & strAppName & "\"
WshShell.RegWrite RegEdPath & strAppName & "\AllowSubfolders" , 1, "REG_DWORD"
'Office 14
RegEdPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\"
WshShell.RegWrite RegEdPath ,strAppName
'Write the values into the registry
WshShell.RegWrite RegEdPath & strAppName & "\Path" , "C:\Users\" & strUserLogin & "\" & strAppName & "\"
WshShell.RegWrite RegEdPath & strAppName & "\AllowSubfolders" , 1, "REG_DWORD"
'copy the application file from the network location to the local folder
fso.CopyFile strAppNetworkFile ,strAppFolder & "\", 1
'run the application
Set xlApp = CreateObject("Excel.Application")
set xlBook = xlApp.WorkBooks.Open(strAppFolder & "\" & strAppFile)
'wshshell.Run strAppFolder & "\" & strAppFile
wscript.Quit
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Kevin qingqinga@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Wednesday, February 6, 2019 11:23 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?
On 07-Feb-2019 12:11 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:
�Hi Kevin,If you search the web you will find several free utilities. I generally create a script or batch file that- creates a directory on the user�s hard drive- copies the front end to the directory- sets the directory to trusted- opens the file
Duane
Get Outlook for iOS�
From: ms_access_professionals@yahoogroups.com on behalf of Kevin qingqinga@yahoo.com [MS_Access_Professionals] <ms_access_professionals@yahoogroups.com>Dear All,
Sent: Wednesday, February 6, 2019 10:00 PM
To: ms_access_professionals@yahoogroups.com
Subject: [MS_AccessPros] What is the best way to update front end automatically when a new version is available?�
What is the best way to update front end automatically when a new
version is available? Thanks in advance.
Best Regards,
Kevin
------------------------------------
Posted by: Kevin <qingqinga@yahoo.com>
------------------------------------
------------------------------------
Yahoo Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/MS_Access_Professionals/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/MS_Access_Professionals/join
(Yahoo! ID required)
<*> To change settings via email:
MS_Access_Professionals-digest@yahoogroups.com
MS_Access_Professionals-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
MS_Access_Professionals-unsubscribe@yahoogroups.com
<*> Your use of Yahoo Groups is subject to:
https://info.yahoo.com/legal/us/yahoo/utos/terms/
__._,_.___
Posted by: Duane Hookom <duanehookom@hotmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (6) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
SPONSORED LINKS
.
__,_._,___
Tidak ada komentar:
Posting Komentar