Create Shortcut with own icon (1 Viewer)

isladogs · Nov 21, 2018

Excellent.
Gasman's suggestion for placing the vbs file in the startup folder was also a good idea.

Good luck with the rest of your project

gstylianou · Nov 21, 2018

isladogs said:
Excellent.
Gasman's suggestion for placing the vbs file in the startup folder was also a good idea.

Good luck with the rest of your project

dear friend isladoc, how can placing the vbs file in the startup folder?

isladogs · Nov 21, 2018

I've not done this with a vbs file for many years but....
Anything in the start up folder will ...run when users login to Windows.

Use the link provided by gasman to locate your startup folder.
Add the file and test it.

This link may be helpful https://superuser.com/questions/263545/how-can-i-make-a-vb-script-execute-every-time-windows-starts-up

Gasman · Nov 21, 2018

gstylianou said:
dear friend isladoc, how can placing the vbs file in the startup folder?

You will likely need a cmd file to run the vbs file.

Just put in the yourfilename.cmd file

Code:

wscript <your vbsfilename with path>

HTH

gstylianou · Nov 21, 2018

Gasman said:
You will likely need a cmd file to run the vbs file.

Just put in the yourfilename.cmd file

Code:

wscript <your vbsfilename with path>

HTH

Gasman you mean to create a new cmd file which includes inside your line of code?

And another last question, is it possible to run the code to create shortcut without open the target database?

Gasman · Nov 21, 2018

Yes, the cmd file will be executed if in the startup folder.
You can also use a shortcut. Whatever you are most comfortable with

That will then run the vbs script to create the shortcut.

the VBS is almost identical to the VBA

Code:

    ' Based on code from https://msdn.microsoft.com/en-us/library/xsy6k3ys(v=vs.84).aspx
    Dim WshShell
    Dim strDesktop
    Dim oShellLink
    
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
   
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\TestShortcut.lnk") 'modify as appropriate
    
    'modify each of the values as appropriate
    With oShellLink
         .TargetPath = "C:\Users\Public\YourFileName.accdb"
         .WindowStyle = 1
        '.Hotkey = "Ctrl+Alt+f" 'optional
         '.IconLocation = "notepad.exe, 0"  ' for embedded icon
         .IconLocation = "C:\__tmp\MIME\foo.ico"  ' for specified .ico file
         .Description = "My shortcut created by VBA" 'optional
         .WorkingDirectory = strDesktop
         '.Arguments = "C:\myFile.txt"  'optional
         .Save
    End With

The VBS method means no DB is required.

My wscript.exe is in c:\Windows\System32 folder

HTH

gstylianou · Nov 21, 2018

isladogs said:
Excellent.
Gasman's suggestion for placing the vbs file in the startup folder was also a good idea.

Good luck with the rest of your project

Hello again,

Problem...problem.! The code is working fine as i told before but after the creation of the shortcut the my database is loading maximized....and user must select the maximize from window dialog every time when use the shortcut...

Sure is something simple..

Gasman · Nov 21, 2018

So are you saying, if you open it manually it is maximised automatically?

Isladogs will know what to do there, though I would have thought all you need to do is maximise the form?

https://social.technet.microsoft.com/Forums/ie/en-US/695dbf51-0f9c-4ccc-aae9-e97c8045fbb3/how-to-maximize-the-opening-form-in-access-2010?forum=officeitproprevious

gstylianou · Nov 21, 2018

Gasman said:
So are you saying, if you open it manually it is maximised automatically?

Isladogs will know what to do there.

Yes, if i open the file from file location is open normally...and if i use the shortcut not..hope to solve the problem

Gasman · Nov 21, 2018

If you are talking about the app window, then change WindowStyle to 3

gstylianou · Nov 21, 2018

Gasman said:
If you are talking about the app window, then change WindowStyle to 3

Yeap....thats was it..!! WinStyle 3.... Everything OK

Thanks for all

isladogs · Nov 21, 2018

Hang on a minute. I thought you didn't want it to open maximised

I've just checked and the WindowStyle values are:
4 = normal
3 = maximized
7 = minimized
NOTE: Any number other than 3 & 7 will open normally e.g. 1

For confirmation, see also https://support.microsoft.com/en-gb/help/244677/how-to-create-a-desktop-shortcut-with-the-windows-script-host

Create Shortcut with own icon (1 Viewer)

isladogs

MVP / VIP

gstylianou

Registered User.

isladogs

MVP / VIP

Gasman

Enthusiastic Amateur

gstylianou

Registered User.

Gasman

Enthusiastic Amateur

gstylianou

Registered User.

Attachments

Gasman

Enthusiastic Amateur

gstylianou

Registered User.

Gasman

Enthusiastic Amateur

gstylianou

Registered User.

isladogs

MVP / VIP

Similar threads

Users who are viewing this thread