OS independent shortcut creator,

[moonman89]

I would like to have all the users in my building easly make a shortcut to "http://something.something.com.au" by clicking on a attached .exe from an email. This is easy in windows 98, because the desktop is in the same location everytime. Can someone please help make a .exe that will locate the desktop location and create a shortcut to that location?
cheers,
Nathan

[moonman89]

In windows XP And windows 98?
Cheers,
Nathan

[dglienna]

Pretty sure you can use Environmental Variables in both OS's.

Option Explicit

Private Sub Form_Load()
  Dim ff As Integer
  ff = FreeFile
  Open App.Path & "\Environment.txt" For Output As #ff
  'Set form autoredraw property to true to get this example
  'to work
  Dim myuser As Variant
  Dim I As Integer
  'used to test if any environment variables exist
  'sometimes they don't
  Dim sTemp As String
  I = 1
  myuser = Environ(I)
  sTemp = myuser
  Form1.Print "   " & Environ(I)
  Print #ff, Environ(I)
  I = I + 1
  'Print all values on form
  Do While Len(myuser) > 0
       Form1.Print "   " & Environ(I)
       Print #ff, Environ(I)
       I = I + 1
       myuser = Environ(I)
       sTemp = sTemp & myuser
      ' Print #ff, myuser
  Loop
  If Len(sTemp) = 0 Then
    Form1.Print _
      "No environment variables exist"
    Print #ff, "No environment variables exist"
  End If
  Close #ff
End Sub

Gives this for me: USERPROFILE=C:\Documents and Settings\David

[RobDog888]

This sounds a bit shady as an email will usually have the exe attachment stripped off by many antivirus software.

Can you explain more of what and how your doing it?