View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Colo[MVP Excel] Colo[MVP Excel] is offline
external usenet poster
 
Posts: 4
Default send zip file to desktop

Hi David,

You can get it by WSH. Please try the code below.

Dim WSHShell, WSH_Folder
Set WSHShell = CreateObject("WScript.Shell")
Set WSH_Folder = WSHShell.SpecialFolders
MsgBox "Your Desktop path would be " & WSH_Folder.Item("Desktop")


Colo



"David" wrote in message
...
When I send a self extracting zip file to user it
automatically creates a shortcut on the desktop for user
of Windows 98, but does not for Windows 2000. Is there a
way of writing the path for Windows 2000?