Create Shortcut with own icon

[isladogs]

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]

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]

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]

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

wscript <your vbsfilename with path>

HTH

 

[gstylianou]

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

Just put in the yourfilename.cmd file

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]

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

    ' 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]

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]

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]

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]

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

 

[gstylianou]

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]

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