Hur hitta sökväg till skrivbordet?

[PerboMan]

Jag har letat runt på nätet och inte lyckats hitta något som fungerar i VBA.

Finns det någon här som har en susning ifall det är möjligt att hitta (eller representera) sökvägen till valfri användares Skrivbord.

Problemet är att jag håller på med en mall med ett makro som skall använda en textfil som per default sparas på skrivbordet.

Sökvägen är C:\Document and Settings\<AnvändarID>\Skrivbord.

Problemet är att internt hos oss så är Användarid inte nödvändigtvis samma sak som du får fram med Application.UserName.

I VB verkar det som om man kan använda %USERPROFILE%Skrivbord, men det funkar inte i VBA.

 

/Pär B

 

[Anjuna Moon]

    Set oShell = CreateObject("WScript.Shell")
   sDesktop = oShell.SpecialFolders("Desktop")

 

[PerboMan]

Precis när jag lyckats leta mig fram till samma information hos XLDennis så slog du till.

Poäng!

 

/Pär B

 

[Anjuna Moon]

Tack för poängen. Här har du en lista över övriga specialfoldrar om det skulle behövas någon gång:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/14761fa3-19be-4742-9f91-23b48cd9228f.asp

 

[PerboMan]

En liten följdfråga:

Är detta tillgängligt på alla XP / Excel2003 installationer?

Det är ingen Referens som måste väljas för att det skall fungera?

 

Jag ser oanade möjligheter att utöka funktionaliteten i VBA med andra WScript-objekt...

 

/Pär B

 

[Anjuna Moon]

Är detta tillgängligt på alla XP / Excel2003 installationer?

Inte säker, enligt dokumentationen ingår den i 98,2000 och Millenium men nog bör den ingå även i XP. Några referenser behövs inte, det är inbyggt i Windows.

 

Om det inte ingår kan du tanka det härifrån:

http://www.microsoft.com/downloads/details.aspx?FamilyId=C717D943-7E4B-4622-86EB-95A22B832CAA&displaylang=en